;;;; Generated on 5/21/2019 at 13:37:10 (UTC+1).

(COMMON-LISP:DECLAIM
 (COMMON-LISP:OPTIMIZE (COMMON-LISP:SPEED 0) COMMON-LISP:SAFETY
  COMMON-LISP:DEBUG COMMON-LISP:COMPILATION-SPEED))

(COMMON-LISP:IN-PACKAGE #:MAGICL.LAPACK-CFFI)

(COMMON-LISP:DECLAIM
 (COMMON-LISP:INLINE %%XERBLA %XERBLA %%XERBLA_ARRAY %XERBLA_ARRAY %%ZBBCSD
  %ZBBCSD %%ZBDSQR %ZBDSQR %%ZCGESV %ZCGESV %%ZCPOSV %ZCPOSV %%ZDRSCL %ZDRSCL
  %%ZGBBRD %ZGBBRD %%ZGBCON %ZGBCON %%ZGBEQU %ZGBEQU %%ZGBEQUB %ZGBEQUB
  %%ZGBRFS %ZGBRFS %%ZGBRFSX %ZGBRFSX %%ZGBSV %ZGBSV %%ZGBSVX %ZGBSVX %%ZGBSVXX
  %ZGBSVXX %%ZGBTF2 %ZGBTF2 %%ZGBTRF %ZGBTRF %%ZGBTRS %ZGBTRS %%ZGEBAK %ZGEBAK
  %%ZGEBAL %ZGEBAL %%ZGEBD2 %ZGEBD2 %%ZGEBRD %ZGEBRD %%ZGECON %ZGECON %%ZGEEQU
  %ZGEEQU %%ZGEEQUB %ZGEEQUB %%ZGEES %ZGEES %%ZGEESX %ZGEESX %%ZGEEV %ZGEEV
  %%ZGEEVX %ZGEEVX %%ZGEHD2 %ZGEHD2 %%ZGEHRD %ZGEHRD %%ZGEJSV %ZGEJSV %%ZGELQ
  %ZGELQ %%ZGELQ2 %ZGELQ2 %%ZGELQF %ZGELQF %%ZGELQT %ZGELQT %%ZGELQT3 %ZGELQT3
  %%ZGELS %ZGELS %%ZGELSD %ZGELSD %%ZGELSS %ZGELSS %%ZGELSY %ZGELSY %%ZGEMLQ
  %ZGEMLQ %%ZGEMLQT %ZGEMLQT %%ZGEMQR %ZGEMQR %%ZGEMQRT %ZGEMQRT %%ZGEQL2
  %ZGEQL2 %%ZGEQLF %ZGEQLF %%ZGEQP3 %ZGEQP3 %%ZGEQR %ZGEQR %%ZGEQR2 %ZGEQR2
  %%ZGEQR2P %ZGEQR2P %%ZGEQRF %ZGEQRF %%ZGEQRFP %ZGEQRFP %%ZGEQRT %ZGEQRT
  %%ZGEQRT2 %ZGEQRT2 %%ZGEQRT3 %ZGEQRT3 %%ZGERFS %ZGERFS %%ZGERFSX %ZGERFSX
  %%ZGERQ2 %ZGERQ2 %%ZGERQF %ZGERQF %%ZGESC2 %ZGESC2 %%ZGESDD %ZGESDD %%ZGESV
  %ZGESV %%ZGESVD %ZGESVD %%ZGESVDQ %ZGESVDQ %%ZGESVDX %ZGESVDX %%ZGESVJ
  %ZGESVJ %%ZGESVX %ZGESVX %%ZGESVXX %ZGESVXX %%ZGETC2 %ZGETC2 %%ZGETF2 %ZGETF2
  %%ZGETRF %ZGETRF %%ZGETRF2 %ZGETRF2 %%ZGETRI %ZGETRI %%ZGETRS %ZGETRS
  %%ZGETSLS %ZGETSLS %%ZGGBAK %ZGGBAK %%ZGGBAL %ZGGBAL %%ZGGES %ZGGES %%ZGGES3
  %ZGGES3 %%ZGGESX %ZGGESX %%ZGGEV %ZGGEV %%ZGGEV3 %ZGGEV3 %%ZGGEVX %ZGGEVX
  %%ZGGGLM %ZGGGLM %%ZGGHD3 %ZGGHD3 %%ZGGHRD %ZGGHRD %%ZGGLSE %ZGGLSE %%ZGGQRF
  %ZGGQRF %%ZGGRQF %ZGGRQF %%ZGGSVD3 %ZGGSVD3 %%ZGGSVP3 %ZGGSVP3 %%ZGSVJ0
  %ZGSVJ0 %%ZGSVJ1 %ZGSVJ1 %%ZGTCON %ZGTCON %%ZGTRFS %ZGTRFS %%ZGTSV %ZGTSV
  %%ZGTSVX %ZGTSVX %%ZGTTRF %ZGTTRF %%ZGTTRS %ZGTTRS %%ZGTTS2 %ZGTTS2
  %%ZHB2ST_KERNELS %ZHB2ST_KERNELS %%ZHBEV %ZHBEV %%ZHBEV_2STAGE %ZHBEV_2STAGE
  %%ZHBEVD %ZHBEVD %%ZHBEVD_2STAGE %ZHBEVD_2STAGE %%ZHBEVX %ZHBEVX
  %%ZHBEVX_2STAGE %ZHBEVX_2STAGE %%ZHBGST %ZHBGST %%ZHBGV %ZHBGV %%ZHBGVD
  %ZHBGVD %%ZHBGVX %ZHBGVX %%ZHBTRD %ZHBTRD %%ZHECON %ZHECON %%ZHECON_3
  %ZHECON_3 %%ZHECON_ROOK %ZHECON_ROOK %%ZHEEQUB %ZHEEQUB %%ZHEEV %ZHEEV
  %%ZHEEV_2STAGE %ZHEEV_2STAGE %%ZHEEVD %ZHEEVD %%ZHEEVD_2STAGE %ZHEEVD_2STAGE
  %%ZHEEVR %ZHEEVR %%ZHEEVR_2STAGE %ZHEEVR_2STAGE %%ZHEEVX %ZHEEVX
  %%ZHEEVX_2STAGE %ZHEEVX_2STAGE %%ZHEGS2 %ZHEGS2 %%ZHEGST %ZHEGST %%ZHEGV
  %ZHEGV %%ZHEGV_2STAGE %ZHEGV_2STAGE %%ZHEGVD %ZHEGVD %%ZHEGVX %ZHEGVX
  %%ZHERFS %ZHERFS %%ZHERFSX %ZHERFSX %%ZHESV %ZHESV %%ZHESV_AA %ZHESV_AA
  %%ZHESV_AA_2STAGE %ZHESV_AA_2STAGE %%ZHESV_RK %ZHESV_RK %%ZHESV_ROOK
  %ZHESV_ROOK %%ZHESVX %ZHESVX %%ZHESVXX %ZHESVXX %%ZHESWAPR %ZHESWAPR %%ZHETD2
  %ZHETD2 %%ZHETF2 %ZHETF2 %%ZHETF2_RK %ZHETF2_RK %%ZHETF2_ROOK %ZHETF2_ROOK
  %%ZHETRD %ZHETRD %%ZHETRD_2STAGE %ZHETRD_2STAGE %%ZHETRD_HE2HB %ZHETRD_HE2HB
  %%ZHETRF %ZHETRF %%ZHETRF_AA %ZHETRF_AA %%ZHETRF_AA_2STAGE %ZHETRF_AA_2STAGE
  %%ZHETRF_RK %ZHETRF_RK %%ZHETRF_ROOK %ZHETRF_ROOK %%ZHETRI %ZHETRI %%ZHETRI2
  %ZHETRI2 %%ZHETRI2X %ZHETRI2X %%ZHETRI_3 %ZHETRI_3 %%ZHETRI_3X %ZHETRI_3X
  %%ZHETRI_ROOK %ZHETRI_ROOK %%ZHETRS %ZHETRS %%ZHETRS2 %ZHETRS2 %%ZHETRS_3
  %ZHETRS_3 %%ZHETRS_AA %ZHETRS_AA %%ZHETRS_AA_2STAGE %ZHETRS_AA_2STAGE
  %%ZHETRS_ROOK %ZHETRS_ROOK %%ZHFRK %ZHFRK %%ZHGEQZ %ZHGEQZ %%ZHPCON %ZHPCON
  %%ZHPEV %ZHPEV %%ZHPEVD %ZHPEVD %%ZHPEVX %ZHPEVX %%ZHPGST %ZHPGST %%ZHPGV
  %ZHPGV %%ZHPGVD %ZHPGVD %%ZHPGVX %ZHPGVX %%ZHPRFS %ZHPRFS %%ZHPSV %ZHPSV
  %%ZHPSVX %ZHPSVX %%ZHPTRD %ZHPTRD %%ZHPTRF %ZHPTRF %%ZHPTRI %ZHPTRI %%ZHPTRS
  %ZHPTRS %%ZHSEIN %ZHSEIN %%ZHSEQR %ZHSEQR %%ZLA_GBAMV %ZLA_GBAMV
  %%ZLA_GBRCOND_C %ZLA_GBRCOND_C %%ZLA_GBRCOND_X %ZLA_GBRCOND_X
  %%ZLA_GBRFSX_EXTENDED %ZLA_GBRFSX_EXTENDED %%ZLA_GBRPVGRW %ZLA_GBRPVGRW
  %%ZLA_GEAMV %ZLA_GEAMV %%ZLA_GERCOND_C %ZLA_GERCOND_C %%ZLA_GERCOND_X
  %ZLA_GERCOND_X %%ZLA_GERFSX_EXTENDED %ZLA_GERFSX_EXTENDED %%ZLA_GERPVGRW
  %ZLA_GERPVGRW %%ZLA_HEAMV %ZLA_HEAMV %%ZLA_HERCOND_C %ZLA_HERCOND_C
  %%ZLA_HERCOND_X %ZLA_HERCOND_X %%ZLA_HERFSX_EXTENDED %ZLA_HERFSX_EXTENDED
  %%ZLA_HERPVGRW %ZLA_HERPVGRW %%ZLA_LIN_BERR %ZLA_LIN_BERR %%ZLA_PORCOND_C
  %ZLA_PORCOND_C %%ZLA_PORCOND_X %ZLA_PORCOND_X %%ZLA_PORFSX_EXTENDED
  %ZLA_PORFSX_EXTENDED %%ZLA_PORPVGRW %ZLA_PORPVGRW %%ZLA_SYAMV %ZLA_SYAMV
  %%ZLA_SYRCOND_C %ZLA_SYRCOND_C %%ZLA_SYRCOND_X %ZLA_SYRCOND_X
  %%ZLA_SYRFSX_EXTENDED %ZLA_SYRFSX_EXTENDED %%ZLA_SYRPVGRW %ZLA_SYRPVGRW
  %%ZLA_WWADDW %ZLA_WWADDW %%ZLABRD %ZLABRD %%ZLACGV %ZLACGV %%ZLACN2 %ZLACN2
  %%ZLACON %ZLACON %%ZLACP2 %ZLACP2 %%ZLACPY %ZLACPY %%ZLACRM %ZLACRM %%ZLACRT
  %ZLACRT %%ZLADIV %ZLADIV %%ZLAED0 %ZLAED0 %%ZLAED7 %ZLAED7 %%ZLAED8 %ZLAED8
  %%ZLAEIN %ZLAEIN %%ZLAESY %ZLAESY %%ZLAEV2 %ZLAEV2 %%ZLAG2C %ZLAG2C %%ZLAGS2
  %ZLAGS2 %%ZLAGTM %ZLAGTM %%ZLAHEF %ZLAHEF %%ZLAHEF_AA %ZLAHEF_AA %%ZLAHEF_RK
  %ZLAHEF_RK %%ZLAHEF_ROOK %ZLAHEF_ROOK %%ZLAHQR %ZLAHQR %%ZLAHR2 %ZLAHR2
  %%ZLAIC1 %ZLAIC1 %%ZLALS0 %ZLALS0 %%ZLALSA %ZLALSA %%ZLALSD %ZLALSD
  %%ZLAMSWLQ %ZLAMSWLQ %%ZLAMTSQR %ZLAMTSQR %%ZLANGB %ZLANGB %%ZLANGE %ZLANGE
  %%ZLANGT %ZLANGT %%ZLANHB %ZLANHB %%ZLANHE %ZLANHE))

(CFFI:DEFCFUN ("xerbla_" %%XERBLA :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SRNAME :STRING)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %XERBLA (SRNAME INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%XERBLA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SRNAME)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((INFO-REF17455 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17455 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%XERBLA SRNAME INFO-REF17455))))

(CFFI:DEFCFUN ("xerbla_array_" %%XERBLA_ARRAY :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SRNAME_ARRAY :POINTER)
  (SRNAME_LEN :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %XERBLA_ARRAY (SRNAME_ARRAY SRNAME_LEN INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%XERBLA_ARRAY)
                       (COMMON-LISP:TYPE COMMON-LISP:ARRAY SRNAME_ARRAY)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        SRNAME_LEN)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((SRNAME_LEN-REF17457 ':INT32)
                              (INFO-REF17458 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF SRNAME_LEN-REF17457 :INT32) SRNAME_LEN)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17458 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SRNAME_ARRAY-REF17456
                                             SRNAME_ARRAY))
      (%%XERBLA_ARRAY SRNAME_ARRAY-REF17456 SRNAME_LEN-REF17457
                      INFO-REF17458))))

(CFFI:DEFCFUN ("zbbcsd_" %%ZBBCSD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBU1 :STRING)
  (JOBU2 :STRING)
  (JOBV1T :STRING)
  (JOBV2T :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (P :POINTER)
  (Q :POINTER)
  (THETA :POINTER)
  (PHI :POINTER)
  (U1 :POINTER)
  (LDU1 :POINTER)
  (U2 :POINTER)
  (LDU2 :POINTER)
  (V1T :POINTER)
  (LDV1T :POINTER)
  (V2T :POINTER)
  (LDV2T :POINTER)
  (B11D :POINTER)
  (B11E :POINTER)
  (B12D :POINTER)
  (B12E :POINTER)
  (B21D :POINTER)
  (B21E :POINTER)
  (B22D :POINTER)
  (B22E :POINTER)
  (RWORK :POINTER)
  (LRWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZBBCSD
                   (JOBU1 JOBU2 JOBV1T JOBV2T TRANS M P Q THETA PHI U1 LDU1 U2
                    LDU2 V1T LDV1T V2T LDV2T B11D B11E B12D B12E B21D B21E B22D
                    B22E RWORK LRWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZBBCSD)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU1)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV1T)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV2T)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) Q)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        THETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        PHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        U1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        U2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        V1T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV1T)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        V2T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV2T)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        B11D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        B11E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        B12D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        B12E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        B21D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        B21E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        B22D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        B22E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LRWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17464 ':INT32) (P-REF17465 ':INT32)
                              (Q-REF17466 ':INT32) (LDU1-REF17470 ':INT32)
                              (LDU2-REF17472 ':INT32) (LDV1T-REF17474 ':INT32)
                              (LDV2T-REF17476 ':INT32)
                              (LRWORK-REF17486 ':INT32) (INFO-REF17487 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17464 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF17465 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF17466 :INT32) Q)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU1-REF17470 :INT32) LDU1)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU2-REF17472 :INT32) LDU2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV1T-REF17474 :INT32) LDV1T)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV2T-REF17476 :INT32) LDV2T)
    (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF17486 :INT32) LRWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17487 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((THETA-REF17467 THETA)
                                            (PHI-REF17468 PHI) (U1-REF17469 U1)
                                            (U2-REF17471 U2) (V1T-REF17473 V1T)
                                            (V2T-REF17475 V2T)
                                            (B11D-REF17477 B11D)
                                            (B11E-REF17478 B11E)
                                            (B12D-REF17479 B12D)
                                            (B12E-REF17480 B12E)
                                            (B21D-REF17481 B21D)
                                            (B21E-REF17482 B21E)
                                            (B22D-REF17483 B22D)
                                            (B22E-REF17484 B22E)
                                            (RWORK-REF17485 RWORK))
      (%%ZBBCSD JOBU1 JOBU2 JOBV1T JOBV2T TRANS M-REF17464 P-REF17465
                Q-REF17466 THETA-REF17467 PHI-REF17468 U1-REF17469
                LDU1-REF17470 U2-REF17471 LDU2-REF17472 V1T-REF17473
                LDV1T-REF17474 V2T-REF17475 LDV2T-REF17476 B11D-REF17477
                B11E-REF17478 B12D-REF17479 B12E-REF17480 B21D-REF17481
                B21E-REF17482 B22D-REF17483 B22E-REF17484 RWORK-REF17485
                LRWORK-REF17486 INFO-REF17487))))

(CFFI:DEFCFUN ("zbdsqr_" %%ZBDSQR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NCVT :POINTER)
  (NRU :POINTER)
  (NCC :POINTER)
  (D :POINTER)
  (E :POINTER)
  (VT :POINTER)
  (LDVT :POINTER)
  (U :POINTER)
  (LDU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZBDSQR
                   (UPLO N NCVT NRU NCC D E VT LDVT U LDU C LDC RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZBDSQR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NCVT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NCC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        VT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        U)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17489 ':INT32) (NCVT-REF17490 ':INT32)
                              (NRU-REF17491 ':INT32) (NCC-REF17492 ':INT32)
                              (LDVT-REF17496 ':INT32) (LDU-REF17498 ':INT32)
                              (LDC-REF17500 ':INT32) (INFO-REF17502 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17489 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NCVT-REF17490 :INT32) NCVT)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRU-REF17491 :INT32) NRU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NCC-REF17492 :INT32) NCC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF17496 :INT32) LDVT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF17498 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF17500 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17502 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF17493 D) (E-REF17494 E)
                                            (VT-REF17495 VT) (U-REF17497 U)
                                            (C-REF17499 C)
                                            (RWORK-REF17501 RWORK))
      (%%ZBDSQR UPLO N-REF17489 NCVT-REF17490 NRU-REF17491 NCC-REF17492
                D-REF17493 E-REF17494 VT-REF17495 LDVT-REF17496 U-REF17497
                LDU-REF17498 C-REF17499 LDC-REF17500 RWORK-REF17501
                INFO-REF17502))))

(CFFI:DEFCFUN ("zcgesv_" %%ZCGESV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (WORK :POINTER)
  (SWORK :POINTER)
  (RWORK :POINTER)
  (ITER :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZCGESV
                   (N NRHS A LDA IPIV B LDB X LDX WORK SWORK RWORK ITER INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZCGESV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        SWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITER)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17503 ':INT32) (NRHS-REF17504 ':INT32)
                              (LDA-REF17506 ':INT32) (LDB-REF17509 ':INT32)
                              (LDX-REF17511 ':INT32) (ITER-REF17515 ':INT32)
                              (INFO-REF17516 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17503 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF17504 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17506 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17509 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF17511 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF ITER-REF17515 :INT32) ITER)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17516 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17505 A) (IPIV-REF17507 IPIV)
                                            (B-REF17508 B) (X-REF17510 X)
                                            (WORK-REF17512 WORK)
                                            (SWORK-REF17513 SWORK)
                                            (RWORK-REF17514 RWORK))
      (%%ZCGESV N-REF17503 NRHS-REF17504 A-REF17505 LDA-REF17506 IPIV-REF17507
                B-REF17508 LDB-REF17509 X-REF17510 LDX-REF17511 WORK-REF17512
                SWORK-REF17513 RWORK-REF17514 ITER-REF17515 INFO-REF17516))))

(CFFI:DEFCFUN ("zcposv_" %%ZCPOSV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (WORK :POINTER)
  (SWORK :POINTER)
  (RWORK :POINTER)
  (ITER :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZCPOSV
                   (UPLO N NRHS A LDA B LDB X LDX WORK SWORK RWORK ITER INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZCPOSV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        SWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITER)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17518 ':INT32) (NRHS-REF17519 ':INT32)
                              (LDA-REF17521 ':INT32) (LDB-REF17523 ':INT32)
                              (LDX-REF17525 ':INT32) (ITER-REF17529 ':INT32)
                              (INFO-REF17530 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17518 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF17519 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17521 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17523 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF17525 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF ITER-REF17529 :INT32) ITER)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17530 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17520 A) (B-REF17522 B)
                                            (X-REF17524 X) (WORK-REF17526 WORK)
                                            (SWORK-REF17527 SWORK)
                                            (RWORK-REF17528 RWORK))
      (%%ZCPOSV UPLO N-REF17518 NRHS-REF17519 A-REF17520 LDA-REF17521
                B-REF17522 LDB-REF17523 X-REF17524 LDX-REF17525 WORK-REF17526
                SWORK-REF17527 RWORK-REF17528 ITER-REF17529 INFO-REF17530))))

(CFFI:DEFCFUN ("zdrscl_" %%ZDRSCL :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (SA :POINTER)
  (SX :POINTER)
  (INCX :POINTER))

(COMMON-LISP:DEFUN %ZDRSCL (N SA SX INCX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZDRSCL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        SX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17531 ':INT32) (SA-REF17532 ':DOUBLE)
                              (INCX-REF17534 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17531 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF SA-REF17532 :DOUBLE) SA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF17534 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SX-REF17533 SX))
      (%%ZDRSCL N-REF17531 SA-REF17532 SX-REF17533 INCX-REF17534))))

(CFFI:DEFCFUN ("zgbbrd_" %%ZGBBRD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (VECT :STRING)
  (M :POINTER)
  (N :POINTER)
  (NCC :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (D :POINTER)
  (E :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (PT :POINTER)
  (LDPT :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGBBRD
                   (VECT M N NCC KL KU AB LDAB D E Q LDQ PT LDPT C LDC WORK
                    RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGBBRD)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING VECT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NCC)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        PT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDPT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17536 ':INT32) (N-REF17537 ':INT32)
                              (NCC-REF17538 ':INT32) (KL-REF17539 ':INT32)
                              (KU-REF17540 ':INT32) (LDAB-REF17542 ':INT32)
                              (LDQ-REF17546 ':INT32) (LDPT-REF17548 ':INT32)
                              (LDC-REF17550 ':INT32) (INFO-REF17553 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17536 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17537 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NCC-REF17538 :INT32) NCC)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF17539 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF17540 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF17542 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF17546 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDPT-REF17548 :INT32) LDPT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF17550 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17553 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF17541 AB) (D-REF17543 D)
                                            (E-REF17544 E) (Q-REF17545 Q)
                                            (PT-REF17547 PT) (C-REF17549 C)
                                            (WORK-REF17551 WORK)
                                            (RWORK-REF17552 RWORK))
      (%%ZGBBRD VECT M-REF17536 N-REF17537 NCC-REF17538 KL-REF17539 KU-REF17540
                AB-REF17541 LDAB-REF17542 D-REF17543 E-REF17544 Q-REF17545
                LDQ-REF17546 PT-REF17547 LDPT-REF17548 C-REF17549 LDC-REF17550
                WORK-REF17551 RWORK-REF17552 INFO-REF17553))))

(CFFI:DEFCFUN ("zgbcon_" %%ZGBCON :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (NORM :STRING)
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (IPIV :POINTER)
  (ANORM :POINTER)
  (RCOND :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGBCON
                   (NORM N KL KU AB LDAB IPIV ANORM RCOND WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGBCON)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ANORM)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17555 ':INT32) (KL-REF17556 ':INT32)
                              (KU-REF17557 ':INT32) (LDAB-REF17559 ':INT32)
                              (ANORM-REF17561 ':DOUBLE)
                              (RCOND-REF17562 ':DOUBLE) (INFO-REF17565 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17555 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF17556 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF17557 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF17559 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF17561 :DOUBLE) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF17562 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17565 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF17558 AB)
                                            (IPIV-REF17560 IPIV)
                                            (WORK-REF17563 WORK)
                                            (RWORK-REF17564 RWORK))
      (%%ZGBCON NORM N-REF17555 KL-REF17556 KU-REF17557 AB-REF17558
                LDAB-REF17559 IPIV-REF17560 ANORM-REF17561 RCOND-REF17562
                WORK-REF17563 RWORK-REF17564 INFO-REF17565))))

(CFFI:DEFCFUN ("zgbequ_" %%ZGBEQU :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (R :POINTER)
  (C :POINTER)
  (ROWCND :POINTER)
  (COLCND :POINTER)
  (AMAX :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGBEQU (M N KL KU AB LDAB R C ROWCND COLCND AMAX INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGBEQU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) R)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ROWCND)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT COLCND)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT AMAX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17566 ':INT32) (N-REF17567 ':INT32)
                              (KL-REF17568 ':INT32) (KU-REF17569 ':INT32)
                              (LDAB-REF17571 ':INT32)
                              (ROWCND-REF17574 ':DOUBLE)
                              (COLCND-REF17575 ':DOUBLE)
                              (AMAX-REF17576 ':DOUBLE) (INFO-REF17577 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17566 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17567 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF17568 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF17569 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF17571 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF ROWCND-REF17574 :DOUBLE) ROWCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF COLCND-REF17575 :DOUBLE) COLCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF17576 :DOUBLE) AMAX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17577 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF17570 AB) (R-REF17572 R)
                                            (C-REF17573 C))
      (%%ZGBEQU M-REF17566 N-REF17567 KL-REF17568 KU-REF17569 AB-REF17570
                LDAB-REF17571 R-REF17572 C-REF17573 ROWCND-REF17574
                COLCND-REF17575 AMAX-REF17576 INFO-REF17577))))

(CFFI:DEFCFUN ("zgbequb_" %%ZGBEQUB :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (R :POINTER)
  (C :POINTER)
  (ROWCND :POINTER)
  (COLCND :POINTER)
  (AMAX :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGBEQUB (M N KL KU AB LDAB R C ROWCND COLCND AMAX INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGBEQUB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) R)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ROWCND)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT COLCND)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT AMAX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17578 ':INT32) (N-REF17579 ':INT32)
                              (KL-REF17580 ':INT32) (KU-REF17581 ':INT32)
                              (LDAB-REF17583 ':INT32)
                              (ROWCND-REF17586 ':DOUBLE)
                              (COLCND-REF17587 ':DOUBLE)
                              (AMAX-REF17588 ':DOUBLE) (INFO-REF17589 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17578 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17579 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF17580 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF17581 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF17583 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF ROWCND-REF17586 :DOUBLE) ROWCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF COLCND-REF17587 :DOUBLE) COLCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF17588 :DOUBLE) AMAX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17589 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF17582 AB) (R-REF17584 R)
                                            (C-REF17585 C))
      (%%ZGBEQUB M-REF17578 N-REF17579 KL-REF17580 KU-REF17581 AB-REF17582
                 LDAB-REF17583 R-REF17584 C-REF17585 ROWCND-REF17586
                 COLCND-REF17587 AMAX-REF17588 INFO-REF17589))))

(CFFI:DEFCFUN ("zgbrfs_" %%ZGBRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (TRANS :STRING)
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (NRHS :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (AFB :POINTER)
  (LDAFB :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGBRFS
                   (TRANS N KL KU NRHS AB LDAB AFB LDAFB IPIV B LDB X LDX FERR
                    BERR WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGBRFS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AFB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAFB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17591 ':INT32) (KL-REF17592 ':INT32)
                              (KU-REF17593 ':INT32) (NRHS-REF17594 ':INT32)
                              (LDAB-REF17596 ':INT32) (LDAFB-REF17598 ':INT32)
                              (LDB-REF17601 ':INT32) (LDX-REF17603 ':INT32)
                              (INFO-REF17608 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17591 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF17592 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF17593 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF17594 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF17596 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF17598 :INT32) LDAFB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17601 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF17603 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17608 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF17595 AB) (AFB-REF17597 AFB)
                                            (IPIV-REF17599 IPIV) (B-REF17600 B)
                                            (X-REF17602 X) (FERR-REF17604 FERR)
                                            (BERR-REF17605 BERR)
                                            (WORK-REF17606 WORK)
                                            (RWORK-REF17607 RWORK))
      (%%ZGBRFS TRANS N-REF17591 KL-REF17592 KU-REF17593 NRHS-REF17594
                AB-REF17595 LDAB-REF17596 AFB-REF17597 LDAFB-REF17598
                IPIV-REF17599 B-REF17600 LDB-REF17601 X-REF17602 LDX-REF17603
                FERR-REF17604 BERR-REF17605 WORK-REF17606 RWORK-REF17607
                INFO-REF17608))))

(CFFI:DEFCFUN ("zgbrfsx_" %%ZGBRFSX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (TRANS :STRING)
  (EQUED :STRING)
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (NRHS :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (AFB :POINTER)
  (LDAFB :POINTER)
  (IPIV :POINTER)
  (R :POINTER)
  (C :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (BERR :POINTER)
  (N_ERR_BNDS :POINTER)
  (ERR_BNDS_NORM :POINTER)
  (ERR_BNDS_COMP :POINTER)
  (NPARAMS :POINTER)
  (PARAMS :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGBRFSX
                   (TRANS EQUED N KL KU NRHS AB LDAB AFB LDAFB IPIV R C B LDB X
                    LDX RCOND BERR N_ERR_BNDS ERR_BNDS_NORM ERR_BNDS_COMP
                    NPARAMS PARAMS WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGBRFSX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AFB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAFB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) R)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        N_ERR_BNDS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ERR_BNDS_NORM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ERR_BNDS_COMP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NPARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        PARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17611 ':INT32) (KL-REF17612 ':INT32)
                              (KU-REF17613 ':INT32) (NRHS-REF17614 ':INT32)
                              (LDAB-REF17616 ':INT32) (LDAFB-REF17618 ':INT32)
                              (LDB-REF17623 ':INT32) (LDX-REF17625 ':INT32)
                              (RCOND-REF17626 ':DOUBLE)
                              (N_ERR_BNDS-REF17628 ':INT32)
                              (NPARAMS-REF17631 ':INT32)
                              (INFO-REF17635 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17611 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF17612 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF17613 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF17614 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF17616 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF17618 :INT32) LDAFB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17623 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF17625 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF17626 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF17628 :INT32) N_ERR_BNDS)
    (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF17631 :INT32) NPARAMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17635 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF17615 AB) (AFB-REF17617 AFB)
                                            (IPIV-REF17619 IPIV) (R-REF17620 R)
                                            (C-REF17621 C) (B-REF17622 B)
                                            (X-REF17624 X) (BERR-REF17627 BERR)
                                            (ERR_BNDS_NORM-REF17629
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF17630
                                             ERR_BNDS_COMP)
                                            (PARAMS-REF17632 PARAMS)
                                            (WORK-REF17633 WORK)
                                            (RWORK-REF17634 RWORK))
      (%%ZGBRFSX TRANS EQUED N-REF17611 KL-REF17612 KU-REF17613 NRHS-REF17614
                 AB-REF17615 LDAB-REF17616 AFB-REF17617 LDAFB-REF17618
                 IPIV-REF17619 R-REF17620 C-REF17621 B-REF17622 LDB-REF17623
                 X-REF17624 LDX-REF17625 RCOND-REF17626 BERR-REF17627
                 N_ERR_BNDS-REF17628 ERR_BNDS_NORM-REF17629
                 ERR_BNDS_COMP-REF17630 NPARAMS-REF17631 PARAMS-REF17632
                 WORK-REF17633 RWORK-REF17634 INFO-REF17635))))

(CFFI:DEFCFUN ("zgbsv_" %%ZGBSV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (NRHS :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGBSV (N KL KU NRHS AB LDAB IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGBSV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17636 ':INT32) (KL-REF17637 ':INT32)
                              (KU-REF17638 ':INT32) (NRHS-REF17639 ':INT32)
                              (LDAB-REF17641 ':INT32) (LDB-REF17644 ':INT32)
                              (INFO-REF17645 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17636 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF17637 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF17638 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF17639 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF17641 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17644 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17645 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF17640 AB)
                                            (IPIV-REF17642 IPIV) (B-REF17643 B))
      (%%ZGBSV N-REF17636 KL-REF17637 KU-REF17638 NRHS-REF17639 AB-REF17640
               LDAB-REF17641 IPIV-REF17642 B-REF17643 LDB-REF17644
               INFO-REF17645))))

(CFFI:DEFCFUN ("zgbsvx_" %%ZGBSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (FACT :STRING)
  (TRANS :STRING)
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (NRHS :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (AFB :POINTER)
  (LDAFB :POINTER)
  (IPIV :POINTER)
  (EQUED :STRING)
  (R :POINTER)
  (C :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGBSVX
                   (FACT TRANS N KL KU NRHS AB LDAB AFB LDAFB IPIV EQUED R C B
                    LDB X LDX RCOND FERR BERR WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGBSVX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AFB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAFB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) R)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17648 ':INT32) (KL-REF17649 ':INT32)
                              (KU-REF17650 ':INT32) (NRHS-REF17651 ':INT32)
                              (LDAB-REF17653 ':INT32) (LDAFB-REF17655 ':INT32)
                              (LDB-REF17661 ':INT32) (LDX-REF17663 ':INT32)
                              (RCOND-REF17664 ':DOUBLE) (INFO-REF17669 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17648 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF17649 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF17650 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF17651 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF17653 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF17655 :INT32) LDAFB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17661 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF17663 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF17664 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17669 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF17652 AB) (AFB-REF17654 AFB)
                                            (IPIV-REF17656 IPIV) (R-REF17658 R)
                                            (C-REF17659 C) (B-REF17660 B)
                                            (X-REF17662 X) (FERR-REF17665 FERR)
                                            (BERR-REF17666 BERR)
                                            (WORK-REF17667 WORK)
                                            (RWORK-REF17668 RWORK))
      (%%ZGBSVX FACT TRANS N-REF17648 KL-REF17649 KU-REF17650 NRHS-REF17651
                AB-REF17652 LDAB-REF17653 AFB-REF17654 LDAFB-REF17655
                IPIV-REF17656 EQUED R-REF17658 C-REF17659 B-REF17660
                LDB-REF17661 X-REF17662 LDX-REF17663 RCOND-REF17664
                FERR-REF17665 BERR-REF17666 WORK-REF17667 RWORK-REF17668
                INFO-REF17669))))

(CFFI:DEFCFUN ("zgbsvxx_" %%ZGBSVXX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (FACT :STRING)
  (TRANS :STRING)
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (NRHS :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (AFB :POINTER)
  (LDAFB :POINTER)
  (IPIV :POINTER)
  (EQUED :STRING)
  (R :POINTER)
  (C :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (RPVGRW :POINTER)
  (BERR :POINTER)
  (N_ERR_BNDS :POINTER)
  (ERR_BNDS_NORM :POINTER)
  (ERR_BNDS_COMP :POINTER)
  (NPARAMS :POINTER)
  (PARAMS :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGBSVXX
                   (FACT TRANS N KL KU NRHS AB LDAB AFB LDAFB IPIV EQUED R C B
                    LDB X LDX RCOND RPVGRW BERR N_ERR_BNDS ERR_BNDS_NORM
                    ERR_BNDS_COMP NPARAMS PARAMS WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGBSVXX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AFB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAFB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) R)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RPVGRW)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        N_ERR_BNDS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ERR_BNDS_NORM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ERR_BNDS_COMP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NPARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        PARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17672 ':INT32) (KL-REF17673 ':INT32)
                              (KU-REF17674 ':INT32) (NRHS-REF17675 ':INT32)
                              (LDAB-REF17677 ':INT32) (LDAFB-REF17679 ':INT32)
                              (LDB-REF17685 ':INT32) (LDX-REF17687 ':INT32)
                              (RCOND-REF17688 ':DOUBLE)
                              (RPVGRW-REF17689 ':DOUBLE)
                              (N_ERR_BNDS-REF17691 ':INT32)
                              (NPARAMS-REF17694 ':INT32)
                              (INFO-REF17698 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17672 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF17673 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF17674 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF17675 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF17677 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF17679 :INT32) LDAFB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17685 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF17687 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF17688 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF RPVGRW-REF17689 :DOUBLE) RPVGRW)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF17691 :INT32) N_ERR_BNDS)
    (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF17694 :INT32) NPARAMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17698 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF17676 AB) (AFB-REF17678 AFB)
                                            (IPIV-REF17680 IPIV) (R-REF17682 R)
                                            (C-REF17683 C) (B-REF17684 B)
                                            (X-REF17686 X) (BERR-REF17690 BERR)
                                            (ERR_BNDS_NORM-REF17692
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF17693
                                             ERR_BNDS_COMP)
                                            (PARAMS-REF17695 PARAMS)
                                            (WORK-REF17696 WORK)
                                            (RWORK-REF17697 RWORK))
      (%%ZGBSVXX FACT TRANS N-REF17672 KL-REF17673 KU-REF17674 NRHS-REF17675
                 AB-REF17676 LDAB-REF17677 AFB-REF17678 LDAFB-REF17679
                 IPIV-REF17680 EQUED R-REF17682 C-REF17683 B-REF17684
                 LDB-REF17685 X-REF17686 LDX-REF17687 RCOND-REF17688
                 RPVGRW-REF17689 BERR-REF17690 N_ERR_BNDS-REF17691
                 ERR_BNDS_NORM-REF17692 ERR_BNDS_COMP-REF17693 NPARAMS-REF17694
                 PARAMS-REF17695 WORK-REF17696 RWORK-REF17697 INFO-REF17698))))

(CFFI:DEFCFUN ("zgbtf2_" %%ZGBTF2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (IPIV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGBTF2 (M N KL KU AB LDAB IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGBTF2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17699 ':INT32) (N-REF17700 ':INT32)
                              (KL-REF17701 ':INT32) (KU-REF17702 ':INT32)
                              (LDAB-REF17704 ':INT32) (INFO-REF17706 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17699 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17700 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF17701 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF17702 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF17704 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17706 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF17703 AB)
                                            (IPIV-REF17705 IPIV))
      (%%ZGBTF2 M-REF17699 N-REF17700 KL-REF17701 KU-REF17702 AB-REF17703
                LDAB-REF17704 IPIV-REF17705 INFO-REF17706))))

(CFFI:DEFCFUN ("zgbtrf_" %%ZGBTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (IPIV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGBTRF (M N KL KU AB LDAB IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGBTRF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17707 ':INT32) (N-REF17708 ':INT32)
                              (KL-REF17709 ':INT32) (KU-REF17710 ':INT32)
                              (LDAB-REF17712 ':INT32) (INFO-REF17714 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17707 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17708 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF17709 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF17710 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF17712 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17714 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF17711 AB)
                                            (IPIV-REF17713 IPIV))
      (%%ZGBTRF M-REF17707 N-REF17708 KL-REF17709 KU-REF17710 AB-REF17711
                LDAB-REF17712 IPIV-REF17713 INFO-REF17714))))

(CFFI:DEFCFUN ("zgbtrs_" %%ZGBTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (TRANS :STRING)
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (NRHS :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGBTRS (TRANS N KL KU NRHS AB LDAB IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGBTRS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17716 ':INT32) (KL-REF17717 ':INT32)
                              (KU-REF17718 ':INT32) (NRHS-REF17719 ':INT32)
                              (LDAB-REF17721 ':INT32) (LDB-REF17724 ':INT32)
                              (INFO-REF17725 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17716 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF17717 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF17718 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF17719 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF17721 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17724 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17725 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF17720 AB)
                                            (IPIV-REF17722 IPIV) (B-REF17723 B))
      (%%ZGBTRS TRANS N-REF17716 KL-REF17717 KU-REF17718 NRHS-REF17719
                AB-REF17720 LDAB-REF17721 IPIV-REF17722 B-REF17723 LDB-REF17724
                INFO-REF17725))))

(CFFI:DEFCFUN ("zgebak_" %%ZGEBAK :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOB :STRING)
  (SIDE :STRING)
  (N :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (SCALE :POINTER)
  (M :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGEBAK (JOB SIDE N ILO IHI SCALE M V LDV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGEBAK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        SCALE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17728 ':INT32) (ILO-REF17729 ':INT32)
                              (IHI-REF17730 ':INT32) (M-REF17732 ':INT32)
                              (LDV-REF17734 ':INT32) (INFO-REF17735 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17728 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF17729 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF17730 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17732 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF17734 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17735 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SCALE-REF17731 SCALE)
                                            (V-REF17733 V))
      (%%ZGEBAK JOB SIDE N-REF17728 ILO-REF17729 IHI-REF17730 SCALE-REF17731
                M-REF17732 V-REF17733 LDV-REF17734 INFO-REF17735))))

(CFFI:DEFCFUN ("zgebal_" %%ZGEBAL :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOB :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (SCALE :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGEBAL (JOB N A LDA ILO IHI SCALE INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGEBAL)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        SCALE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17737 ':INT32) (LDA-REF17739 ':INT32)
                              (ILO-REF17740 ':INT32) (IHI-REF17741 ':INT32)
                              (INFO-REF17743 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17737 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17739 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF17740 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF17741 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17743 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17738 A)
                                            (SCALE-REF17742 SCALE))
      (%%ZGEBAL JOB N-REF17737 A-REF17738 LDA-REF17739 ILO-REF17740
                IHI-REF17741 SCALE-REF17742 INFO-REF17743))))

(CFFI:DEFCFUN ("zgebd2_" %%ZGEBD2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (D :POINTER)
  (E :POINTER)
  (TAUQ :POINTER)
  (TAUP :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGEBD2 (M N A LDA D E TAUQ TAUP WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGEBD2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAUQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAUP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17744 ':INT32) (N-REF17745 ':INT32)
                              (LDA-REF17747 ':INT32) (INFO-REF17753 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17744 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17745 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17747 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17753 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17746 A) (D-REF17748 D)
                                            (E-REF17749 E) (TAUQ-REF17750 TAUQ)
                                            (TAUP-REF17751 TAUP)
                                            (WORK-REF17752 WORK))
      (%%ZGEBD2 M-REF17744 N-REF17745 A-REF17746 LDA-REF17747 D-REF17748
                E-REF17749 TAUQ-REF17750 TAUP-REF17751 WORK-REF17752
                INFO-REF17753))))

(CFFI:DEFCFUN ("zgebrd_" %%ZGEBRD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (D :POINTER)
  (E :POINTER)
  (TAUQ :POINTER)
  (TAUP :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGEBRD (M N A LDA D E TAUQ TAUP WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGEBRD)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAUQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAUP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17754 ':INT32) (N-REF17755 ':INT32)
                              (LDA-REF17757 ':INT32) (LWORK-REF17763 ':INT32)
                              (INFO-REF17764 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17754 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17755 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17757 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF17763 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17764 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17756 A) (D-REF17758 D)
                                            (E-REF17759 E) (TAUQ-REF17760 TAUQ)
                                            (TAUP-REF17761 TAUP)
                                            (WORK-REF17762 WORK))
      (%%ZGEBRD M-REF17754 N-REF17755 A-REF17756 LDA-REF17757 D-REF17758
                E-REF17759 TAUQ-REF17760 TAUP-REF17761 WORK-REF17762
                LWORK-REF17763 INFO-REF17764))))

(CFFI:DEFCFUN ("zgecon_" %%ZGECON :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (NORM :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (ANORM :POINTER)
  (RCOND :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGECON (NORM N A LDA ANORM RCOND WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGECON)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ANORM)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17766 ':INT32) (LDA-REF17768 ':INT32)
                              (ANORM-REF17769 ':DOUBLE)
                              (RCOND-REF17770 ':DOUBLE) (INFO-REF17773 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17766 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17768 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF17769 :DOUBLE) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF17770 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17773 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17767 A) (WORK-REF17771 WORK)
                                            (RWORK-REF17772 RWORK))
      (%%ZGECON NORM N-REF17766 A-REF17767 LDA-REF17768 ANORM-REF17769
                RCOND-REF17770 WORK-REF17771 RWORK-REF17772 INFO-REF17773))))

(CFFI:DEFCFUN ("zgeequ_" %%ZGEEQU :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (R :POINTER)
  (C :POINTER)
  (ROWCND :POINTER)
  (COLCND :POINTER)
  (AMAX :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGEEQU (M N A LDA R C ROWCND COLCND AMAX INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGEEQU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) R)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ROWCND)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT COLCND)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT AMAX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17774 ':INT32) (N-REF17775 ':INT32)
                              (LDA-REF17777 ':INT32) (ROWCND-REF17780 ':DOUBLE)
                              (COLCND-REF17781 ':DOUBLE)
                              (AMAX-REF17782 ':DOUBLE) (INFO-REF17783 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17774 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17775 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17777 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF ROWCND-REF17780 :DOUBLE) ROWCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF COLCND-REF17781 :DOUBLE) COLCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF17782 :DOUBLE) AMAX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17783 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17776 A) (R-REF17778 R)
                                            (C-REF17779 C))
      (%%ZGEEQU M-REF17774 N-REF17775 A-REF17776 LDA-REF17777 R-REF17778
                C-REF17779 ROWCND-REF17780 COLCND-REF17781 AMAX-REF17782
                INFO-REF17783))))

(CFFI:DEFCFUN ("zgeequb_" %%ZGEEQUB :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (R :POINTER)
  (C :POINTER)
  (ROWCND :POINTER)
  (COLCND :POINTER)
  (AMAX :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGEEQUB (M N A LDA R C ROWCND COLCND AMAX INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGEEQUB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) R)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ROWCND)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT COLCND)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT AMAX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17784 ':INT32) (N-REF17785 ':INT32)
                              (LDA-REF17787 ':INT32) (ROWCND-REF17790 ':DOUBLE)
                              (COLCND-REF17791 ':DOUBLE)
                              (AMAX-REF17792 ':DOUBLE) (INFO-REF17793 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17784 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17785 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17787 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF ROWCND-REF17790 :DOUBLE) ROWCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF COLCND-REF17791 :DOUBLE) COLCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF17792 :DOUBLE) AMAX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17793 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17786 A) (R-REF17788 R)
                                            (C-REF17789 C))
      (%%ZGEEQUB M-REF17784 N-REF17785 A-REF17786 LDA-REF17787 R-REF17788
                 C-REF17789 ROWCND-REF17790 COLCND-REF17791 AMAX-REF17792
                 INFO-REF17793))))

(CFFI:DEFCFUN ("zgees_" %%ZGEES :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBVS :STRING)
  (SORT :STRING)
  (SELECT :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (SDIM :POINTER)
  (W :POINTER)
  (VS :POINTER)
  (LDVS :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (BWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGEES
                   (JOBVS SORT SELECT N A LDA SDIM W VS LDVS WORK LWORK RWORK
                    BWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGEES)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SORT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SELECT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SDIM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        VS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        BWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((SELECT-REF17796 ':INT32) (N-REF17797 ':INT32)
                              (LDA-REF17799 ':INT32) (SDIM-REF17800 ':INT32)
                              (LDVS-REF17803 ':INT32) (LWORK-REF17805 ':INT32)
                              (INFO-REF17808 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF SELECT-REF17796 :INT32) SELECT)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17797 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17799 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF17800 :INT32) SDIM)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVS-REF17803 :INT32) LDVS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF17805 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17808 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17798 A) (W-REF17801 W)
                                            (VS-REF17802 VS)
                                            (WORK-REF17804 WORK)
                                            (RWORK-REF17806 RWORK)
                                            (BWORK-REF17807 BWORK))
      (%%ZGEES JOBVS SORT SELECT-REF17796 N-REF17797 A-REF17798 LDA-REF17799
               SDIM-REF17800 W-REF17801 VS-REF17802 LDVS-REF17803 WORK-REF17804
               LWORK-REF17805 RWORK-REF17806 BWORK-REF17807 INFO-REF17808))))

(CFFI:DEFCFUN ("zgeesx_" %%ZGEESX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBVS :STRING)
  (SORT :STRING)
  (SELECT :POINTER)
  (SENSE :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (SDIM :POINTER)
  (W :POINTER)
  (VS :POINTER)
  (LDVS :POINTER)
  (RCONDE :POINTER)
  (RCONDV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (BWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGEESX
                   (JOBVS SORT SELECT SENSE N A LDA SDIM W VS LDVS RCONDE
                    RCONDV WORK LWORK RWORK BWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGEESX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SORT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SELECT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SENSE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SDIM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        VS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVS)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCONDE)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCONDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        BWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((SELECT-REF17811 ':INT32) (N-REF17813 ':INT32)
                              (LDA-REF17815 ':INT32) (SDIM-REF17816 ':INT32)
                              (LDVS-REF17819 ':INT32)
                              (RCONDE-REF17820 ':DOUBLE)
                              (RCONDV-REF17821 ':DOUBLE)
                              (LWORK-REF17823 ':INT32) (INFO-REF17826 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF SELECT-REF17811 :INT32) SELECT)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17813 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17815 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF17816 :INT32) SDIM)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVS-REF17819 :INT32) LDVS)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCONDE-REF17820 :DOUBLE) RCONDE)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCONDV-REF17821 :DOUBLE) RCONDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF17823 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17826 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17814 A) (W-REF17817 W)
                                            (VS-REF17818 VS)
                                            (WORK-REF17822 WORK)
                                            (RWORK-REF17824 RWORK)
                                            (BWORK-REF17825 BWORK))
      (%%ZGEESX JOBVS SORT SELECT-REF17811 SENSE N-REF17813 A-REF17814
                LDA-REF17815 SDIM-REF17816 W-REF17817 VS-REF17818 LDVS-REF17819
                RCONDE-REF17820 RCONDV-REF17821 WORK-REF17822 LWORK-REF17823
                RWORK-REF17824 BWORK-REF17825 INFO-REF17826))))

(CFFI:DEFCFUN ("zgeev_" %%ZGEEV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBVL :STRING)
  (JOBVR :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (W :POINTER)
  (VL :POINTER)
  (LDVL :POINTER)
  (VR :POINTER)
  (LDVR :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGEEV
                   (JOBVL JOBVR N A LDA W VL LDVL VR LDVR WORK LWORK RWORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGEEV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVL)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        VL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        VR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17829 ':INT32) (LDA-REF17831 ':INT32)
                              (LDVL-REF17834 ':INT32) (LDVR-REF17836 ':INT32)
                              (LWORK-REF17838 ':INT32) (INFO-REF17840 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17829 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17831 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF17834 :INT32) LDVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF17836 :INT32) LDVR)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF17838 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17840 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17830 A) (W-REF17832 W)
                                            (VL-REF17833 VL) (VR-REF17835 VR)
                                            (WORK-REF17837 WORK)
                                            (RWORK-REF17839 RWORK))
      (%%ZGEEV JOBVL JOBVR N-REF17829 A-REF17830 LDA-REF17831 W-REF17832
               VL-REF17833 LDVL-REF17834 VR-REF17835 LDVR-REF17836
               WORK-REF17837 LWORK-REF17838 RWORK-REF17839 INFO-REF17840))))

(CFFI:DEFCFUN ("zgeevx_" %%ZGEEVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (BALANC :STRING)
  (JOBVL :STRING)
  (JOBVR :STRING)
  (SENSE :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (W :POINTER)
  (VL :POINTER)
  (LDVL :POINTER)
  (VR :POINTER)
  (LDVR :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (SCALE :POINTER)
  (ABNRM :POINTER)
  (RCONDE :POINTER)
  (RCONDV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGEEVX
                   (BALANC JOBVL JOBVR SENSE N A LDA W VL LDVL VR LDVR ILO IHI
                    SCALE ABNRM RCONDE RCONDV WORK LWORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGEEVX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING BALANC)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVL)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SENSE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        VL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        VR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        SCALE)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ABNRM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RCONDE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RCONDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17845 ':INT32) (LDA-REF17847 ':INT32)
                              (LDVL-REF17850 ':INT32) (LDVR-REF17852 ':INT32)
                              (ILO-REF17853 ':INT32) (IHI-REF17854 ':INT32)
                              (ABNRM-REF17856 ':DOUBLE)
                              (LWORK-REF17860 ':INT32) (INFO-REF17862 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17845 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17847 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF17850 :INT32) LDVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF17852 :INT32) LDVR)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF17853 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF17854 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABNRM-REF17856 :DOUBLE) ABNRM)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF17860 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17862 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17846 A) (W-REF17848 W)
                                            (VL-REF17849 VL) (VR-REF17851 VR)
                                            (SCALE-REF17855 SCALE)
                                            (RCONDE-REF17857 RCONDE)
                                            (RCONDV-REF17858 RCONDV)
                                            (WORK-REF17859 WORK)
                                            (RWORK-REF17861 RWORK))
      (%%ZGEEVX BALANC JOBVL JOBVR SENSE N-REF17845 A-REF17846 LDA-REF17847
                W-REF17848 VL-REF17849 LDVL-REF17850 VR-REF17851 LDVR-REF17852
                ILO-REF17853 IHI-REF17854 SCALE-REF17855 ABNRM-REF17856
                RCONDE-REF17857 RCONDV-REF17858 WORK-REF17859 LWORK-REF17860
                RWORK-REF17861 INFO-REF17862))))

(CFFI:DEFCFUN ("zgehd2_" %%ZGEHD2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGEHD2 (N ILO IHI A LDA TAU WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGEHD2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17863 ':INT32) (ILO-REF17864 ':INT32)
                              (IHI-REF17865 ':INT32) (LDA-REF17867 ':INT32)
                              (INFO-REF17870 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17863 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF17864 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF17865 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17867 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17870 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17866 A) (TAU-REF17868 TAU)
                                            (WORK-REF17869 WORK))
      (%%ZGEHD2 N-REF17863 ILO-REF17864 IHI-REF17865 A-REF17866 LDA-REF17867
                TAU-REF17868 WORK-REF17869 INFO-REF17870))))

(CFFI:DEFCFUN ("zgehrd_" %%ZGEHRD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGEHRD (N ILO IHI A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGEHRD)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17871 ':INT32) (ILO-REF17872 ':INT32)
                              (IHI-REF17873 ':INT32) (LDA-REF17875 ':INT32)
                              (LWORK-REF17878 ':INT32) (INFO-REF17879 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17871 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF17872 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF17873 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17875 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF17878 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17879 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17874 A) (TAU-REF17876 TAU)
                                            (WORK-REF17877 WORK))
      (%%ZGEHRD N-REF17871 ILO-REF17872 IHI-REF17873 A-REF17874 LDA-REF17875
                TAU-REF17876 WORK-REF17877 LWORK-REF17878 INFO-REF17879))))

(CFFI:DEFCFUN ("zgejsv_" %%ZGEJSV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBA :STRING)
  (JOBU :STRING)
  (JOBV :STRING)
  (JOBR :STRING)
  (JOBT :STRING)
  (JOBP :STRING)
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (SVA :POINTER)
  (U :POINTER)
  (LDU :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (CWORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (LRWORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGEJSV
                   (JOBA JOBU JOBV JOBR JOBT JOBP M N A LDA SVA U LDU V LDV
                    CWORK LWORK RWORK LRWORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGEJSV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        SVA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        U)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        CWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LRWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17886 ':INT32) (N-REF17887 ':INT32)
                              (LDA-REF17889 ':INT32) (LDU-REF17892 ':INT32)
                              (LDV-REF17894 ':INT32) (LWORK-REF17896 ':INT32)
                              (LRWORK-REF17898 ':INT32) (INFO-REF17900 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17886 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17887 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17889 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF17892 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF17894 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF17896 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF17898 :INT32) LRWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17900 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17888 A) (SVA-REF17890 SVA)
                                            (U-REF17891 U) (V-REF17893 V)
                                            (CWORK-REF17895 CWORK)
                                            (RWORK-REF17897 RWORK)
                                            (IWORK-REF17899 IWORK))
      (%%ZGEJSV JOBA JOBU JOBV JOBR JOBT JOBP M-REF17886 N-REF17887 A-REF17888
                LDA-REF17889 SVA-REF17890 U-REF17891 LDU-REF17892 V-REF17893
                LDV-REF17894 CWORK-REF17895 LWORK-REF17896 RWORK-REF17897
                LRWORK-REF17898 IWORK-REF17899 INFO-REF17900))))

(CFFI:DEFCFUN ("zgelq_" %%ZGELQ :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (T :POINTER)
  (TSIZE :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGELQ (M N A LDA T TSIZE WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGELQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TSIZE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17901 ':INT32) (N-REF17902 ':INT32)
                              (LDA-REF17904 ':INT32) (TSIZE-REF17906 ':INT32)
                              (LWORK-REF17908 ':INT32) (INFO-REF17909 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17901 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17902 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17904 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF TSIZE-REF17906 :INT32) TSIZE)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF17908 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17909 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17903 A) (T-REF17905 T)
                                            (WORK-REF17907 WORK))
      (%%ZGELQ M-REF17901 N-REF17902 A-REF17903 LDA-REF17904 T-REF17905
               TSIZE-REF17906 WORK-REF17907 LWORK-REF17908 INFO-REF17909))))

(CFFI:DEFCFUN ("zgelq2_" %%ZGELQ2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGELQ2 (M N A LDA TAU WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGELQ2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17910 ':INT32) (N-REF17911 ':INT32)
                              (LDA-REF17913 ':INT32) (INFO-REF17916 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17910 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17911 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17913 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17916 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17912 A) (TAU-REF17914 TAU)
                                            (WORK-REF17915 WORK))
      (%%ZGELQ2 M-REF17910 N-REF17911 A-REF17912 LDA-REF17913 TAU-REF17914
                WORK-REF17915 INFO-REF17916))))

(CFFI:DEFCFUN ("zgelqf_" %%ZGELQF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGELQF (M N A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGELQF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17917 ':INT32) (N-REF17918 ':INT32)
                              (LDA-REF17920 ':INT32) (LWORK-REF17923 ':INT32)
                              (INFO-REF17924 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17917 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17918 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17920 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF17923 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17924 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17919 A) (TAU-REF17921 TAU)
                                            (WORK-REF17922 WORK))
      (%%ZGELQF M-REF17917 N-REF17918 A-REF17919 LDA-REF17920 TAU-REF17921
                WORK-REF17922 LWORK-REF17923 INFO-REF17924))))

(CFFI:DEFCFUN ("zgelqt_" %%ZGELQT :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (MB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGELQT (M N MB A LDA T LDT WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGELQT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17925 ':INT32) (N-REF17926 ':INT32)
                              (MB-REF17927 ':INT32) (LDA-REF17929 ':INT32)
                              (LDT-REF17931 ':INT32) (INFO-REF17933 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17925 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17926 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF17927 :INT32) MB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17929 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF17931 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17933 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17928 A) (T-REF17930 T)
                                            (WORK-REF17932 WORK))
      (%%ZGELQT M-REF17925 N-REF17926 MB-REF17927 A-REF17928 LDA-REF17929
                T-REF17930 LDT-REF17931 WORK-REF17932 INFO-REF17933))))

(CFFI:DEFCFUN ("zgelqt3_" %%ZGELQT3 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGELQT3 (M N A LDA T LDT INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGELQT3)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17934 ':INT32) (N-REF17935 ':INT32)
                              (LDA-REF17937 ':INT32) (LDT-REF17939 ':INT32)
                              (INFO-REF17940 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17934 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17935 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17937 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF17939 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17940 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17936 A) (T-REF17938 T))
      (%%ZGELQT3 M-REF17934 N-REF17935 A-REF17936 LDA-REF17937 T-REF17938
                 LDT-REF17939 INFO-REF17940))))

(CFFI:DEFCFUN ("zgels_" %%ZGELS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGELS (TRANS M N NRHS A LDA B LDB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGELS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17942 ':INT32) (N-REF17943 ':INT32)
                              (NRHS-REF17944 ':INT32) (LDA-REF17946 ':INT32)
                              (LDB-REF17948 ':INT32) (LWORK-REF17950 ':INT32)
                              (INFO-REF17951 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17942 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17943 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF17944 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17946 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17948 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF17950 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17951 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17945 A) (B-REF17947 B)
                                            (WORK-REF17949 WORK))
      (%%ZGELS TRANS M-REF17942 N-REF17943 NRHS-REF17944 A-REF17945
               LDA-REF17946 B-REF17947 LDB-REF17948 WORK-REF17949
               LWORK-REF17950 INFO-REF17951))))

(CFFI:DEFCFUN ("zgelsd_" %%ZGELSD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (S :POINTER)
  (RCOND :POINTER)
  (RANK :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGELSD
                   (M N NRHS A LDA B LDB S RCOND RANK WORK LWORK RWORK IWORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGELSD)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) RANK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17952 ':INT32) (N-REF17953 ':INT32)
                              (NRHS-REF17954 ':INT32) (LDA-REF17956 ':INT32)
                              (LDB-REF17958 ':INT32) (RCOND-REF17960 ':DOUBLE)
                              (RANK-REF17961 ':INT32) (LWORK-REF17963 ':INT32)
                              (INFO-REF17966 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17952 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17953 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF17954 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17956 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17958 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF17960 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF RANK-REF17961 :INT32) RANK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF17963 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17966 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17955 A) (B-REF17957 B)
                                            (S-REF17959 S) (WORK-REF17962 WORK)
                                            (RWORK-REF17964 RWORK)
                                            (IWORK-REF17965 IWORK))
      (%%ZGELSD M-REF17952 N-REF17953 NRHS-REF17954 A-REF17955 LDA-REF17956
                B-REF17957 LDB-REF17958 S-REF17959 RCOND-REF17960 RANK-REF17961
                WORK-REF17962 LWORK-REF17963 RWORK-REF17964 IWORK-REF17965
                INFO-REF17966))))

(CFFI:DEFCFUN ("zgelss_" %%ZGELSS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (S :POINTER)
  (RCOND :POINTER)
  (RANK :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGELSS
                   (M N NRHS A LDA B LDB S RCOND RANK WORK LWORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGELSS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) RANK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17967 ':INT32) (N-REF17968 ':INT32)
                              (NRHS-REF17969 ':INT32) (LDA-REF17971 ':INT32)
                              (LDB-REF17973 ':INT32) (RCOND-REF17975 ':DOUBLE)
                              (RANK-REF17976 ':INT32) (LWORK-REF17978 ':INT32)
                              (INFO-REF17980 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17967 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17968 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF17969 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17971 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17973 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF17975 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF RANK-REF17976 :INT32) RANK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF17978 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17980 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17970 A) (B-REF17972 B)
                                            (S-REF17974 S) (WORK-REF17977 WORK)
                                            (RWORK-REF17979 RWORK))
      (%%ZGELSS M-REF17967 N-REF17968 NRHS-REF17969 A-REF17970 LDA-REF17971
                B-REF17972 LDB-REF17973 S-REF17974 RCOND-REF17975 RANK-REF17976
                WORK-REF17977 LWORK-REF17978 RWORK-REF17979 INFO-REF17980))))

(CFFI:DEFCFUN ("zgelsy_" %%ZGELSY :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (JPVT :POINTER)
  (RCOND :POINTER)
  (RANK :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGELSY
                   (M N NRHS A LDA B LDB JPVT RCOND RANK WORK LWORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGELSY)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        JPVT)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) RANK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17981 ':INT32) (N-REF17982 ':INT32)
                              (NRHS-REF17983 ':INT32) (LDA-REF17985 ':INT32)
                              (LDB-REF17987 ':INT32) (RCOND-REF17989 ':DOUBLE)
                              (RANK-REF17990 ':INT32) (LWORK-REF17992 ':INT32)
                              (INFO-REF17994 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17981 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17982 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF17983 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17985 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17987 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF17989 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF RANK-REF17990 :INT32) RANK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF17992 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17994 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17984 A) (B-REF17986 B)
                                            (JPVT-REF17988 JPVT)
                                            (WORK-REF17991 WORK)
                                            (RWORK-REF17993 RWORK))
      (%%ZGELSY M-REF17981 N-REF17982 NRHS-REF17983 A-REF17984 LDA-REF17985
                B-REF17986 LDB-REF17987 JPVT-REF17988 RCOND-REF17989
                RANK-REF17990 WORK-REF17991 LWORK-REF17992 RWORK-REF17993
                INFO-REF17994))))

(CFFI:DEFCFUN ("zgemlq_" %%ZGEMLQ :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (T :POINTER)
  (TSIZE :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGEMLQ
                   (SIDE TRANS M N K A LDA T TSIZE C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGEMLQ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TSIZE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17997 ':INT32) (N-REF17998 ':INT32)
                              (K-REF17999 ':INT32) (LDA-REF18001 ':INT32)
                              (TSIZE-REF18003 ':INT32) (LDC-REF18005 ':INT32)
                              (LWORK-REF18007 ':INT32) (INFO-REF18008 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17997 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17998 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF17999 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18001 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF TSIZE-REF18003 :INT32) TSIZE)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF18005 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18007 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18008 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18000 A) (T-REF18002 T)
                                            (C-REF18004 C) (WORK-REF18006 WORK))
      (%%ZGEMLQ SIDE TRANS M-REF17997 N-REF17998 K-REF17999 A-REF18000
                LDA-REF18001 T-REF18002 TSIZE-REF18003 C-REF18004 LDC-REF18005
                WORK-REF18006 LWORK-REF18007 INFO-REF18008))))

(CFFI:DEFCFUN ("zgemlqt_" %%ZGEMLQT :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (MB :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGEMLQT (SIDE TRANS M N K MB V LDV T LDT C LDC WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGEMLQT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18011 ':INT32) (N-REF18012 ':INT32)
                              (K-REF18013 ':INT32) (MB-REF18014 ':INT32)
                              (LDV-REF18016 ':INT32) (LDT-REF18018 ':INT32)
                              (LDC-REF18020 ':INT32) (INFO-REF18022 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18011 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18012 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF18013 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF18014 :INT32) MB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF18016 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF18018 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF18020 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18022 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF18015 V) (T-REF18017 T)
                                            (C-REF18019 C) (WORK-REF18021 WORK))
      (%%ZGEMLQT SIDE TRANS M-REF18011 N-REF18012 K-REF18013 MB-REF18014
                 V-REF18015 LDV-REF18016 T-REF18017 LDT-REF18018 C-REF18019
                 LDC-REF18020 WORK-REF18021 INFO-REF18022))))

(CFFI:DEFCFUN ("zgemqr_" %%ZGEMQR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (T :POINTER)
  (TSIZE :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGEMQR
                   (SIDE TRANS M N K A LDA T TSIZE C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGEMQR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TSIZE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18025 ':INT32) (N-REF18026 ':INT32)
                              (K-REF18027 ':INT32) (LDA-REF18029 ':INT32)
                              (TSIZE-REF18031 ':INT32) (LDC-REF18033 ':INT32)
                              (LWORK-REF18035 ':INT32) (INFO-REF18036 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18025 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18026 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF18027 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18029 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF TSIZE-REF18031 :INT32) TSIZE)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF18033 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18035 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18036 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18028 A) (T-REF18030 T)
                                            (C-REF18032 C) (WORK-REF18034 WORK))
      (%%ZGEMQR SIDE TRANS M-REF18025 N-REF18026 K-REF18027 A-REF18028
                LDA-REF18029 T-REF18030 TSIZE-REF18031 C-REF18032 LDC-REF18033
                WORK-REF18034 LWORK-REF18035 INFO-REF18036))))

(CFFI:DEFCFUN ("zgemqrt_" %%ZGEMQRT :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (NB :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGEMQRT (SIDE TRANS M N K NB V LDV T LDT C LDC WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGEMQRT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18039 ':INT32) (N-REF18040 ':INT32)
                              (K-REF18041 ':INT32) (NB-REF18042 ':INT32)
                              (LDV-REF18044 ':INT32) (LDT-REF18046 ':INT32)
                              (LDC-REF18048 ':INT32) (INFO-REF18050 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18039 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18040 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF18041 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF18042 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF18044 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF18046 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF18048 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18050 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF18043 V) (T-REF18045 T)
                                            (C-REF18047 C) (WORK-REF18049 WORK))
      (%%ZGEMQRT SIDE TRANS M-REF18039 N-REF18040 K-REF18041 NB-REF18042
                 V-REF18043 LDV-REF18044 T-REF18045 LDT-REF18046 C-REF18047
                 LDC-REF18048 WORK-REF18049 INFO-REF18050))))

(CFFI:DEFCFUN ("zgeql2_" %%ZGEQL2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGEQL2 (M N A LDA TAU WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGEQL2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18051 ':INT32) (N-REF18052 ':INT32)
                              (LDA-REF18054 ':INT32) (INFO-REF18057 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18051 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18052 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18054 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18057 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18053 A) (TAU-REF18055 TAU)
                                            (WORK-REF18056 WORK))
      (%%ZGEQL2 M-REF18051 N-REF18052 A-REF18053 LDA-REF18054 TAU-REF18055
                WORK-REF18056 INFO-REF18057))))

(CFFI:DEFCFUN ("zgeqlf_" %%ZGEQLF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGEQLF (M N A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGEQLF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18058 ':INT32) (N-REF18059 ':INT32)
                              (LDA-REF18061 ':INT32) (LWORK-REF18064 ':INT32)
                              (INFO-REF18065 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18058 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18059 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18061 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18064 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18065 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18060 A) (TAU-REF18062 TAU)
                                            (WORK-REF18063 WORK))
      (%%ZGEQLF M-REF18058 N-REF18059 A-REF18060 LDA-REF18061 TAU-REF18062
                WORK-REF18063 LWORK-REF18064 INFO-REF18065))))

(CFFI:DEFCFUN ("zgeqp3_" %%ZGEQP3 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (JPVT :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGEQP3 (M N A LDA JPVT TAU WORK LWORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGEQP3)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        JPVT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18066 ':INT32) (N-REF18067 ':INT32)
                              (LDA-REF18069 ':INT32) (LWORK-REF18073 ':INT32)
                              (INFO-REF18075 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18066 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18067 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18069 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18073 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18075 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18068 A) (JPVT-REF18070 JPVT)
                                            (TAU-REF18071 TAU)
                                            (WORK-REF18072 WORK)
                                            (RWORK-REF18074 RWORK))
      (%%ZGEQP3 M-REF18066 N-REF18067 A-REF18068 LDA-REF18069 JPVT-REF18070
                TAU-REF18071 WORK-REF18072 LWORK-REF18073 RWORK-REF18074
                INFO-REF18075))))

(CFFI:DEFCFUN ("zgeqr_" %%ZGEQR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (T :POINTER)
  (TSIZE :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGEQR (M N A LDA T TSIZE WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGEQR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TSIZE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18076 ':INT32) (N-REF18077 ':INT32)
                              (LDA-REF18079 ':INT32) (TSIZE-REF18081 ':INT32)
                              (LWORK-REF18083 ':INT32) (INFO-REF18084 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18076 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18077 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18079 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF TSIZE-REF18081 :INT32) TSIZE)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18083 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18084 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18078 A) (T-REF18080 T)
                                            (WORK-REF18082 WORK))
      (%%ZGEQR M-REF18076 N-REF18077 A-REF18078 LDA-REF18079 T-REF18080
               TSIZE-REF18081 WORK-REF18082 LWORK-REF18083 INFO-REF18084))))

(CFFI:DEFCFUN ("zgeqr2_" %%ZGEQR2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGEQR2 (M N A LDA TAU WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGEQR2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18085 ':INT32) (N-REF18086 ':INT32)
                              (LDA-REF18088 ':INT32) (INFO-REF18091 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18085 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18086 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18088 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18091 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18087 A) (TAU-REF18089 TAU)
                                            (WORK-REF18090 WORK))
      (%%ZGEQR2 M-REF18085 N-REF18086 A-REF18087 LDA-REF18088 TAU-REF18089
                WORK-REF18090 INFO-REF18091))))

(CFFI:DEFCFUN ("zgeqr2p_" %%ZGEQR2P :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGEQR2P (M N A LDA TAU WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGEQR2P)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18092 ':INT32) (N-REF18093 ':INT32)
                              (LDA-REF18095 ':INT32) (INFO-REF18098 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18092 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18093 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18095 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18098 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18094 A) (TAU-REF18096 TAU)
                                            (WORK-REF18097 WORK))
      (%%ZGEQR2P M-REF18092 N-REF18093 A-REF18094 LDA-REF18095 TAU-REF18096
                 WORK-REF18097 INFO-REF18098))))

(CFFI:DEFCFUN ("zgeqrf_" %%ZGEQRF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGEQRF (M N A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGEQRF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18099 ':INT32) (N-REF18100 ':INT32)
                              (LDA-REF18102 ':INT32) (LWORK-REF18105 ':INT32)
                              (INFO-REF18106 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18099 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18100 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18102 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18105 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18106 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18101 A) (TAU-REF18103 TAU)
                                            (WORK-REF18104 WORK))
      (%%ZGEQRF M-REF18099 N-REF18100 A-REF18101 LDA-REF18102 TAU-REF18103
                WORK-REF18104 LWORK-REF18105 INFO-REF18106))))

(CFFI:DEFCFUN ("zgeqrfp_" %%ZGEQRFP :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGEQRFP (M N A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGEQRFP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18107 ':INT32) (N-REF18108 ':INT32)
                              (LDA-REF18110 ':INT32) (LWORK-REF18113 ':INT32)
                              (INFO-REF18114 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18107 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18108 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18110 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18113 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18114 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18109 A) (TAU-REF18111 TAU)
                                            (WORK-REF18112 WORK))
      (%%ZGEQRFP M-REF18107 N-REF18108 A-REF18109 LDA-REF18110 TAU-REF18111
                 WORK-REF18112 LWORK-REF18113 INFO-REF18114))))

(CFFI:DEFCFUN ("zgeqrt_" %%ZGEQRT :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (NB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGEQRT (M N NB A LDA T LDT WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGEQRT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18115 ':INT32) (N-REF18116 ':INT32)
                              (NB-REF18117 ':INT32) (LDA-REF18119 ':INT32)
                              (LDT-REF18121 ':INT32) (INFO-REF18123 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18115 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18116 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF18117 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18119 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF18121 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18123 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18118 A) (T-REF18120 T)
                                            (WORK-REF18122 WORK))
      (%%ZGEQRT M-REF18115 N-REF18116 NB-REF18117 A-REF18118 LDA-REF18119
                T-REF18120 LDT-REF18121 WORK-REF18122 INFO-REF18123))))

(CFFI:DEFCFUN ("zgeqrt2_" %%ZGEQRT2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGEQRT2 (M N A LDA T LDT INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGEQRT2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18124 ':INT32) (N-REF18125 ':INT32)
                              (LDA-REF18127 ':INT32) (LDT-REF18129 ':INT32)
                              (INFO-REF18130 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18124 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18125 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18127 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF18129 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18130 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18126 A) (T-REF18128 T))
      (%%ZGEQRT2 M-REF18124 N-REF18125 A-REF18126 LDA-REF18127 T-REF18128
                 LDT-REF18129 INFO-REF18130))))

(CFFI:DEFCFUN ("zgeqrt3_" %%ZGEQRT3 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGEQRT3 (M N A LDA T LDT INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGEQRT3)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18131 ':INT32) (N-REF18132 ':INT32)
                              (LDA-REF18134 ':INT32) (LDT-REF18136 ':INT32)
                              (INFO-REF18137 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18131 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18132 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18134 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF18136 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18137 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18133 A) (T-REF18135 T))
      (%%ZGEQRT3 M-REF18131 N-REF18132 A-REF18133 LDA-REF18134 T-REF18135
                 LDT-REF18136 INFO-REF18137))))

(CFFI:DEFCFUN ("zgerfs_" %%ZGERFS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (TRANS :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGERFS
                   (TRANS N NRHS A LDA AF LDAF IPIV B LDB X LDX FERR BERR WORK
                    RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGERFS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18139 ':INT32) (NRHS-REF18140 ':INT32)
                              (LDA-REF18142 ':INT32) (LDAF-REF18144 ':INT32)
                              (LDB-REF18147 ':INT32) (LDX-REF18149 ':INT32)
                              (INFO-REF18154 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18139 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF18140 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18142 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF18144 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF18147 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF18149 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18154 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18141 A) (AF-REF18143 AF)
                                            (IPIV-REF18145 IPIV) (B-REF18146 B)
                                            (X-REF18148 X) (FERR-REF18150 FERR)
                                            (BERR-REF18151 BERR)
                                            (WORK-REF18152 WORK)
                                            (RWORK-REF18153 RWORK))
      (%%ZGERFS TRANS N-REF18139 NRHS-REF18140 A-REF18141 LDA-REF18142
                AF-REF18143 LDAF-REF18144 IPIV-REF18145 B-REF18146 LDB-REF18147
                X-REF18148 LDX-REF18149 FERR-REF18150 BERR-REF18151
                WORK-REF18152 RWORK-REF18153 INFO-REF18154))))

(CFFI:DEFCFUN ("zgerfsx_" %%ZGERFSX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (TRANS :STRING)
  (EQUED :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (R :POINTER)
  (C :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (BERR :POINTER)
  (N_ERR_BNDS :POINTER)
  (ERR_BNDS_NORM :POINTER)
  (ERR_BNDS_COMP :POINTER)
  (NPARAMS :POINTER)
  (PARAMS :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGERFSX
                   (TRANS EQUED N NRHS A LDA AF LDAF IPIV R C B LDB X LDX RCOND
                    BERR N_ERR_BNDS ERR_BNDS_NORM ERR_BNDS_COMP NPARAMS PARAMS
                    WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGERFSX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) R)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        N_ERR_BNDS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ERR_BNDS_NORM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ERR_BNDS_COMP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NPARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        PARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18157 ':INT32) (NRHS-REF18158 ':INT32)
                              (LDA-REF18160 ':INT32) (LDAF-REF18162 ':INT32)
                              (LDB-REF18167 ':INT32) (LDX-REF18169 ':INT32)
                              (RCOND-REF18170 ':DOUBLE)
                              (N_ERR_BNDS-REF18172 ':INT32)
                              (NPARAMS-REF18175 ':INT32)
                              (INFO-REF18179 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18157 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF18158 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18160 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF18162 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF18167 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF18169 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF18170 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF18172 :INT32) N_ERR_BNDS)
    (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF18175 :INT32) NPARAMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18179 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18159 A) (AF-REF18161 AF)
                                            (IPIV-REF18163 IPIV) (R-REF18164 R)
                                            (C-REF18165 C) (B-REF18166 B)
                                            (X-REF18168 X) (BERR-REF18171 BERR)
                                            (ERR_BNDS_NORM-REF18173
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF18174
                                             ERR_BNDS_COMP)
                                            (PARAMS-REF18176 PARAMS)
                                            (WORK-REF18177 WORK)
                                            (RWORK-REF18178 RWORK))
      (%%ZGERFSX TRANS EQUED N-REF18157 NRHS-REF18158 A-REF18159 LDA-REF18160
                 AF-REF18161 LDAF-REF18162 IPIV-REF18163 R-REF18164 C-REF18165
                 B-REF18166 LDB-REF18167 X-REF18168 LDX-REF18169 RCOND-REF18170
                 BERR-REF18171 N_ERR_BNDS-REF18172 ERR_BNDS_NORM-REF18173
                 ERR_BNDS_COMP-REF18174 NPARAMS-REF18175 PARAMS-REF18176
                 WORK-REF18177 RWORK-REF18178 INFO-REF18179))))

(CFFI:DEFCFUN ("zgerq2_" %%ZGERQ2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGERQ2 (M N A LDA TAU WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGERQ2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18180 ':INT32) (N-REF18181 ':INT32)
                              (LDA-REF18183 ':INT32) (INFO-REF18186 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18180 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18181 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18183 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18186 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18182 A) (TAU-REF18184 TAU)
                                            (WORK-REF18185 WORK))
      (%%ZGERQ2 M-REF18180 N-REF18181 A-REF18182 LDA-REF18183 TAU-REF18184
                WORK-REF18185 INFO-REF18186))))

(CFFI:DEFCFUN ("zgerqf_" %%ZGERQF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGERQF (M N A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGERQF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18187 ':INT32) (N-REF18188 ':INT32)
                              (LDA-REF18190 ':INT32) (LWORK-REF18193 ':INT32)
                              (INFO-REF18194 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18187 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18188 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18190 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18193 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18194 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18189 A) (TAU-REF18191 TAU)
                                            (WORK-REF18192 WORK))
      (%%ZGERQF M-REF18187 N-REF18188 A-REF18189 LDA-REF18190 TAU-REF18191
                WORK-REF18192 LWORK-REF18193 INFO-REF18194))))

(CFFI:DEFCFUN ("zgesc2_" %%ZGESC2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (RHS :POINTER)
  (IPIV :POINTER)
  (JPIV :POINTER)
  (SCALE :POINTER))

(COMMON-LISP:DEFUN %ZGESC2 (N A LDA RHS IPIV JPIV SCALE)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGESC2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        RHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        JPIV)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCALE))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18195 ':INT32) (LDA-REF18197 ':INT32)
                              (SCALE-REF18201 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18195 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18197 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF18201 :DOUBLE) SCALE)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18196 A) (RHS-REF18198 RHS)
                                            (IPIV-REF18199 IPIV)
                                            (JPIV-REF18200 JPIV))
      (%%ZGESC2 N-REF18195 A-REF18196 LDA-REF18197 RHS-REF18198 IPIV-REF18199
                JPIV-REF18200 SCALE-REF18201))))

(CFFI:DEFCFUN ("zgesdd_" %%ZGESDD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (S :POINTER)
  (U :POINTER)
  (LDU :POINTER)
  (VT :POINTER)
  (LDVT :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGESDD
                   (JOBZ M N A LDA S U LDU VT LDVT WORK LWORK RWORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGESDD)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        U)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        VT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18203 ':INT32) (N-REF18204 ':INT32)
                              (LDA-REF18206 ':INT32) (LDU-REF18209 ':INT32)
                              (LDVT-REF18211 ':INT32) (LWORK-REF18213 ':INT32)
                              (INFO-REF18216 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18203 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18204 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18206 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF18209 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF18211 :INT32) LDVT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18213 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18216 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18205 A) (S-REF18207 S)
                                            (U-REF18208 U) (VT-REF18210 VT)
                                            (WORK-REF18212 WORK)
                                            (RWORK-REF18214 RWORK)
                                            (IWORK-REF18215 IWORK))
      (%%ZGESDD JOBZ M-REF18203 N-REF18204 A-REF18205 LDA-REF18206 S-REF18207
                U-REF18208 LDU-REF18209 VT-REF18210 LDVT-REF18211 WORK-REF18212
                LWORK-REF18213 RWORK-REF18214 IWORK-REF18215 INFO-REF18216))))

(CFFI:DEFCFUN ("zgesv_" %%ZGESV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGESV (N NRHS A LDA IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGESV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18217 ':INT32) (NRHS-REF18218 ':INT32)
                              (LDA-REF18220 ':INT32) (LDB-REF18223 ':INT32)
                              (INFO-REF18224 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18217 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF18218 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18220 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF18223 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18224 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18219 A) (IPIV-REF18221 IPIV)
                                            (B-REF18222 B))
      (%%ZGESV N-REF18217 NRHS-REF18218 A-REF18219 LDA-REF18220 IPIV-REF18221
               B-REF18222 LDB-REF18223 INFO-REF18224))))

(CFFI:DEFCFUN ("zgesvd_" %%ZGESVD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBU :STRING)
  (JOBVT :STRING)
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (S :POINTER)
  (U :POINTER)
  (LDU :POINTER)
  (VT :POINTER)
  (LDVT :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGESVD
                   (JOBU JOBVT M N A LDA S U LDU VT LDVT WORK LWORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGESVD)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        U)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        VT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18227 ':INT32) (N-REF18228 ':INT32)
                              (LDA-REF18230 ':INT32) (LDU-REF18233 ':INT32)
                              (LDVT-REF18235 ':INT32) (LWORK-REF18237 ':INT32)
                              (INFO-REF18239 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18227 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18228 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18230 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF18233 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF18235 :INT32) LDVT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18237 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18239 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18229 A) (S-REF18231 S)
                                            (U-REF18232 U) (VT-REF18234 VT)
                                            (WORK-REF18236 WORK)
                                            (RWORK-REF18238 RWORK))
      (%%ZGESVD JOBU JOBVT M-REF18227 N-REF18228 A-REF18229 LDA-REF18230
                S-REF18231 U-REF18232 LDU-REF18233 VT-REF18234 LDVT-REF18235
                WORK-REF18236 LWORK-REF18237 RWORK-REF18238 INFO-REF18239))))

(CFFI:DEFCFUN ("zgesvdq_" %%ZGESVDQ :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBA :STRING)
  (JOBP :STRING)
  (JOBR :STRING)
  (JOBU :STRING)
  (JOBV :STRING)
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (S :POINTER)
  (U :POINTER)
  (LDU :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (NUMRANK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (CWORK :POINTER)
  (LCWORK :POINTER)
  (RWORK :POINTER)
  (LRWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGESVDQ
                   (JOBA JOBP JOBR JOBU JOBV M N A LDA S U LDU V LDV NUMRANK
                    IWORK LIWORK CWORK LCWORK RWORK LRWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGESVDQ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBP)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        U)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NUMRANK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        CWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LCWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LRWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18245 ':INT32) (N-REF18246 ':INT32)
                              (LDA-REF18248 ':INT32) (LDU-REF18251 ':INT32)
                              (LDV-REF18253 ':INT32) (NUMRANK-REF18254 ':INT32)
                              (LIWORK-REF18256 ':INT32)
                              (LCWORK-REF18258 ':INT32)
                              (LRWORK-REF18260 ':INT32) (INFO-REF18261 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18245 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18246 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18248 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF18251 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF18253 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF NUMRANK-REF18254 :INT32) NUMRANK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF18256 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LCWORK-REF18258 :INT32) LCWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF18260 :INT32) LRWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18261 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18247 A) (S-REF18249 S)
                                            (U-REF18250 U) (V-REF18252 V)
                                            (IWORK-REF18255 IWORK)
                                            (CWORK-REF18257 CWORK)
                                            (RWORK-REF18259 RWORK))
      (%%ZGESVDQ JOBA JOBP JOBR JOBU JOBV M-REF18245 N-REF18246 A-REF18247
                 LDA-REF18248 S-REF18249 U-REF18250 LDU-REF18251 V-REF18252
                 LDV-REF18253 NUMRANK-REF18254 IWORK-REF18255 LIWORK-REF18256
                 CWORK-REF18257 LCWORK-REF18258 RWORK-REF18259 LRWORK-REF18260
                 INFO-REF18261))))

(CFFI:DEFCFUN ("zgesvdx_" %%ZGESVDX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBU :STRING)
  (JOBVT :STRING)
  (RANGE :STRING)
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (IL :POINTER)
  (IU :POINTER)
  (NS :POINTER)
  (S :POINTER)
  (U :POINTER)
  (LDU :POINTER)
  (VT :POINTER)
  (LDVT :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGESVDX
                   (JOBU JOBVT RANGE M N A LDA VL VU IL IU NS S U LDU VT LDVT
                    WORK LWORK RWORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGESVDX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        U)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        VT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18265 ':INT32) (N-REF18266 ':INT32)
                              (LDA-REF18268 ':INT32) (VL-REF18269 ':DOUBLE)
                              (VU-REF18270 ':DOUBLE) (IL-REF18271 ':INT32)
                              (IU-REF18272 ':INT32) (NS-REF18273 ':INT32)
                              (LDU-REF18276 ':INT32) (LDVT-REF18278 ':INT32)
                              (LWORK-REF18280 ':INT32) (INFO-REF18283 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18265 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18266 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18268 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF18269 :DOUBLE) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF18270 :DOUBLE) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF18271 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF18272 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NS-REF18273 :INT32) NS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF18276 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF18278 :INT32) LDVT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18280 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18283 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18267 A) (S-REF18274 S)
                                            (U-REF18275 U) (VT-REF18277 VT)
                                            (WORK-REF18279 WORK)
                                            (RWORK-REF18281 RWORK)
                                            (IWORK-REF18282 IWORK))
      (%%ZGESVDX JOBU JOBVT RANGE M-REF18265 N-REF18266 A-REF18267 LDA-REF18268
                 VL-REF18269 VU-REF18270 IL-REF18271 IU-REF18272 NS-REF18273
                 S-REF18274 U-REF18275 LDU-REF18276 VT-REF18277 LDVT-REF18278
                 WORK-REF18279 LWORK-REF18280 RWORK-REF18281 IWORK-REF18282
                 INFO-REF18283))))

(CFFI:DEFCFUN ("zgesvj_" %%ZGESVJ :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBA :STRING)
  (JOBU :STRING)
  (JOBV :STRING)
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (SVA :POINTER)
  (MV :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (CWORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (LRWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGESVJ
                   (JOBA JOBU JOBV M N A LDA SVA MV V LDV CWORK LWORK RWORK
                    LRWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGESVJ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        SVA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        CWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LRWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18287 ':INT32) (N-REF18288 ':INT32)
                              (LDA-REF18290 ':INT32) (MV-REF18292 ':INT32)
                              (LDV-REF18294 ':INT32) (LWORK-REF18296 ':INT32)
                              (LRWORK-REF18298 ':INT32) (INFO-REF18299 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18287 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18288 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18290 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF MV-REF18292 :INT32) MV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF18294 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18296 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF18298 :INT32) LRWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18299 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18289 A) (SVA-REF18291 SVA)
                                            (V-REF18293 V)
                                            (CWORK-REF18295 CWORK)
                                            (RWORK-REF18297 RWORK))
      (%%ZGESVJ JOBA JOBU JOBV M-REF18287 N-REF18288 A-REF18289 LDA-REF18290
                SVA-REF18291 MV-REF18292 V-REF18293 LDV-REF18294 CWORK-REF18295
                LWORK-REF18296 RWORK-REF18297 LRWORK-REF18298 INFO-REF18299))))

(CFFI:DEFCFUN ("zgesvx_" %%ZGESVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (FACT :STRING)
  (TRANS :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (EQUED :STRING)
  (R :POINTER)
  (C :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGESVX
                   (FACT TRANS N NRHS A LDA AF LDAF IPIV EQUED R C B LDB X LDX
                    RCOND FERR BERR WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGESVX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) R)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18302 ':INT32) (NRHS-REF18303 ':INT32)
                              (LDA-REF18305 ':INT32) (LDAF-REF18307 ':INT32)
                              (LDB-REF18313 ':INT32) (LDX-REF18315 ':INT32)
                              (RCOND-REF18316 ':DOUBLE) (INFO-REF18321 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18302 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF18303 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18305 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF18307 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF18313 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF18315 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF18316 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18321 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18304 A) (AF-REF18306 AF)
                                            (IPIV-REF18308 IPIV) (R-REF18310 R)
                                            (C-REF18311 C) (B-REF18312 B)
                                            (X-REF18314 X) (FERR-REF18317 FERR)
                                            (BERR-REF18318 BERR)
                                            (WORK-REF18319 WORK)
                                            (RWORK-REF18320 RWORK))
      (%%ZGESVX FACT TRANS N-REF18302 NRHS-REF18303 A-REF18304 LDA-REF18305
                AF-REF18306 LDAF-REF18307 IPIV-REF18308 EQUED R-REF18310
                C-REF18311 B-REF18312 LDB-REF18313 X-REF18314 LDX-REF18315
                RCOND-REF18316 FERR-REF18317 BERR-REF18318 WORK-REF18319
                RWORK-REF18320 INFO-REF18321))))

(CFFI:DEFCFUN ("zgesvxx_" %%ZGESVXX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (FACT :STRING)
  (TRANS :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (EQUED :STRING)
  (R :POINTER)
  (C :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (RPVGRW :POINTER)
  (BERR :POINTER)
  (N_ERR_BNDS :POINTER)
  (ERR_BNDS_NORM :POINTER)
  (ERR_BNDS_COMP :POINTER)
  (NPARAMS :POINTER)
  (PARAMS :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGESVXX
                   (FACT TRANS N NRHS A LDA AF LDAF IPIV EQUED R C B LDB X LDX
                    RCOND RPVGRW BERR N_ERR_BNDS ERR_BNDS_NORM ERR_BNDS_COMP
                    NPARAMS PARAMS WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGESVXX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) R)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RPVGRW)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        N_ERR_BNDS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ERR_BNDS_NORM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ERR_BNDS_COMP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NPARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        PARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18324 ':INT32) (NRHS-REF18325 ':INT32)
                              (LDA-REF18327 ':INT32) (LDAF-REF18329 ':INT32)
                              (LDB-REF18335 ':INT32) (LDX-REF18337 ':INT32)
                              (RCOND-REF18338 ':DOUBLE)
                              (RPVGRW-REF18339 ':DOUBLE)
                              (N_ERR_BNDS-REF18341 ':INT32)
                              (NPARAMS-REF18344 ':INT32)
                              (INFO-REF18348 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18324 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF18325 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18327 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF18329 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF18335 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF18337 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF18338 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF RPVGRW-REF18339 :DOUBLE) RPVGRW)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF18341 :INT32) N_ERR_BNDS)
    (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF18344 :INT32) NPARAMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18348 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18326 A) (AF-REF18328 AF)
                                            (IPIV-REF18330 IPIV) (R-REF18332 R)
                                            (C-REF18333 C) (B-REF18334 B)
                                            (X-REF18336 X) (BERR-REF18340 BERR)
                                            (ERR_BNDS_NORM-REF18342
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF18343
                                             ERR_BNDS_COMP)
                                            (PARAMS-REF18345 PARAMS)
                                            (WORK-REF18346 WORK)
                                            (RWORK-REF18347 RWORK))
      (%%ZGESVXX FACT TRANS N-REF18324 NRHS-REF18325 A-REF18326 LDA-REF18327
                 AF-REF18328 LDAF-REF18329 IPIV-REF18330 EQUED R-REF18332
                 C-REF18333 B-REF18334 LDB-REF18335 X-REF18336 LDX-REF18337
                 RCOND-REF18338 RPVGRW-REF18339 BERR-REF18340
                 N_ERR_BNDS-REF18341 ERR_BNDS_NORM-REF18342
                 ERR_BNDS_COMP-REF18343 NPARAMS-REF18344 PARAMS-REF18345
                 WORK-REF18346 RWORK-REF18347 INFO-REF18348))))

(CFFI:DEFCFUN ("zgetc2_" %%ZGETC2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (JPIV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGETC2 (N A LDA IPIV JPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGETC2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        JPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18349 ':INT32) (LDA-REF18351 ':INT32)
                              (INFO-REF18354 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18349 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18351 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18354 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18350 A) (IPIV-REF18352 IPIV)
                                            (JPIV-REF18353 JPIV))
      (%%ZGETC2 N-REF18349 A-REF18350 LDA-REF18351 IPIV-REF18352 JPIV-REF18353
                INFO-REF18354))))

(CFFI:DEFCFUN ("zgetf2_" %%ZGETF2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGETF2 (M N A LDA IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGETF2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18355 ':INT32) (N-REF18356 ':INT32)
                              (LDA-REF18358 ':INT32) (INFO-REF18360 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18355 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18356 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18358 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18360 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18357 A) (IPIV-REF18359 IPIV))
      (%%ZGETF2 M-REF18355 N-REF18356 A-REF18357 LDA-REF18358 IPIV-REF18359
                INFO-REF18360))))

(CFFI:DEFCFUN ("zgetrf_" %%ZGETRF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGETRF (M N A LDA IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGETRF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18361 ':INT32) (N-REF18362 ':INT32)
                              (LDA-REF18364 ':INT32) (INFO-REF18366 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18361 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18362 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18364 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18366 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18363 A) (IPIV-REF18365 IPIV))
      (%%ZGETRF M-REF18361 N-REF18362 A-REF18363 LDA-REF18364 IPIV-REF18365
                INFO-REF18366))))

(CFFI:DEFCFUN ("zgetrf2_" %%ZGETRF2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGETRF2 (M N A LDA IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGETRF2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18367 ':INT32) (N-REF18368 ':INT32)
                              (LDA-REF18370 ':INT32) (INFO-REF18372 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18367 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18368 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18370 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18372 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18369 A) (IPIV-REF18371 IPIV))
      (%%ZGETRF2 M-REF18367 N-REF18368 A-REF18369 LDA-REF18370 IPIV-REF18371
                 INFO-REF18372))))

(CFFI:DEFCFUN ("zgetri_" %%ZGETRI :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGETRI (N A LDA IPIV WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGETRI)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18373 ':INT32) (LDA-REF18375 ':INT32)
                              (LWORK-REF18378 ':INT32) (INFO-REF18379 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18373 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18375 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18378 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18379 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18374 A) (IPIV-REF18376 IPIV)
                                            (WORK-REF18377 WORK))
      (%%ZGETRI N-REF18373 A-REF18374 LDA-REF18375 IPIV-REF18376 WORK-REF18377
                LWORK-REF18378 INFO-REF18379))))

(CFFI:DEFCFUN ("zgetrs_" %%ZGETRS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (TRANS :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGETRS (TRANS N NRHS A LDA IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGETRS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18381 ':INT32) (NRHS-REF18382 ':INT32)
                              (LDA-REF18384 ':INT32) (LDB-REF18387 ':INT32)
                              (INFO-REF18388 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18381 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF18382 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18384 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF18387 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18388 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18383 A) (IPIV-REF18385 IPIV)
                                            (B-REF18386 B))
      (%%ZGETRS TRANS N-REF18381 NRHS-REF18382 A-REF18383 LDA-REF18384
                IPIV-REF18385 B-REF18386 LDB-REF18387 INFO-REF18388))))

(CFFI:DEFCFUN ("zgetsls_" %%ZGETSLS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGETSLS (TRANS M N NRHS A LDA B LDB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGETSLS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18390 ':INT32) (N-REF18391 ':INT32)
                              (NRHS-REF18392 ':INT32) (LDA-REF18394 ':INT32)
                              (LDB-REF18396 ':INT32) (LWORK-REF18398 ':INT32)
                              (INFO-REF18399 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18390 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18391 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF18392 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18394 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF18396 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18398 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18399 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18393 A) (B-REF18395 B)
                                            (WORK-REF18397 WORK))
      (%%ZGETSLS TRANS M-REF18390 N-REF18391 NRHS-REF18392 A-REF18393
                 LDA-REF18394 B-REF18395 LDB-REF18396 WORK-REF18397
                 LWORK-REF18398 INFO-REF18399))))

(CFFI:DEFCFUN ("zggbak_" %%ZGGBAK :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOB :STRING)
  (SIDE :STRING)
  (N :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (LSCALE :POINTER)
  (RSCALE :POINTER)
  (M :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGGBAK (JOB SIDE N ILO IHI LSCALE RSCALE M V LDV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGGBAK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        LSCALE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RSCALE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18402 ':INT32) (ILO-REF18403 ':INT32)
                              (IHI-REF18404 ':INT32) (M-REF18407 ':INT32)
                              (LDV-REF18409 ':INT32) (INFO-REF18410 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18402 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF18403 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF18404 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18407 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF18409 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18410 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((LSCALE-REF18405 LSCALE)
                                            (RSCALE-REF18406 RSCALE)
                                            (V-REF18408 V))
      (%%ZGGBAK JOB SIDE N-REF18402 ILO-REF18403 IHI-REF18404 LSCALE-REF18405
                RSCALE-REF18406 M-REF18407 V-REF18408 LDV-REF18409
                INFO-REF18410))))

(CFFI:DEFCFUN ("zggbal_" %%ZGGBAL :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOB :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (LSCALE :POINTER)
  (RSCALE :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGGBAL (JOB N A LDA B LDB ILO IHI LSCALE RSCALE WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGGBAL)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        LSCALE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RSCALE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18412 ':INT32) (LDA-REF18414 ':INT32)
                              (LDB-REF18416 ':INT32) (ILO-REF18417 ':INT32)
                              (IHI-REF18418 ':INT32) (INFO-REF18422 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18412 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18414 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF18416 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF18417 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF18418 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18422 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18413 A) (B-REF18415 B)
                                            (LSCALE-REF18419 LSCALE)
                                            (RSCALE-REF18420 RSCALE)
                                            (WORK-REF18421 WORK))
      (%%ZGGBAL JOB N-REF18412 A-REF18413 LDA-REF18414 B-REF18415 LDB-REF18416
                ILO-REF18417 IHI-REF18418 LSCALE-REF18419 RSCALE-REF18420
                WORK-REF18421 INFO-REF18422))))

(CFFI:DEFCFUN ("zgges_" %%ZGGES :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBVSL :STRING)
  (JOBVSR :STRING)
  (SORT :STRING)
  (SELCTG :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (SDIM :POINTER)
  (ALPHA :POINTER)
  (BETA :POINTER)
  (VSL :POINTER)
  (LDVSL :POINTER)
  (VSR :POINTER)
  (LDVSR :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (BWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGGES
                   (JOBVSL JOBVSR SORT SELCTG N A LDA B LDB SDIM ALPHA BETA VSL
                    LDVSL VSR LDVSR WORK LWORK RWORK BWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGGES)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVSL)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVSR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SORT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SELCTG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SDIM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        VSL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVSL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        VSR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVSR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        BWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((SELCTG-REF18426 ':INT32) (N-REF18427 ':INT32)
                              (LDA-REF18429 ':INT32) (LDB-REF18431 ':INT32)
                              (SDIM-REF18432 ':INT32) (LDVSL-REF18436 ':INT32)
                              (LDVSR-REF18438 ':INT32) (LWORK-REF18440 ':INT32)
                              (INFO-REF18443 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF SELCTG-REF18426 :INT32) SELCTG)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18427 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18429 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF18431 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF18432 :INT32) SDIM)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVSL-REF18436 :INT32) LDVSL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVSR-REF18438 :INT32) LDVSR)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18440 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18443 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18428 A) (B-REF18430 B)
                                            (ALPHA-REF18433 ALPHA)
                                            (BETA-REF18434 BETA)
                                            (VSL-REF18435 VSL)
                                            (VSR-REF18437 VSR)
                                            (WORK-REF18439 WORK)
                                            (RWORK-REF18441 RWORK)
                                            (BWORK-REF18442 BWORK))
      (%%ZGGES JOBVSL JOBVSR SORT SELCTG-REF18426 N-REF18427 A-REF18428
               LDA-REF18429 B-REF18430 LDB-REF18431 SDIM-REF18432
               ALPHA-REF18433 BETA-REF18434 VSL-REF18435 LDVSL-REF18436
               VSR-REF18437 LDVSR-REF18438 WORK-REF18439 LWORK-REF18440
               RWORK-REF18441 BWORK-REF18442 INFO-REF18443))))

(CFFI:DEFCFUN ("zgges3_" %%ZGGES3 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBVSL :STRING)
  (JOBVSR :STRING)
  (SORT :STRING)
  (SELCTG :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (SDIM :POINTER)
  (ALPHA :POINTER)
  (BETA :POINTER)
  (VSL :POINTER)
  (LDVSL :POINTER)
  (VSR :POINTER)
  (LDVSR :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (BWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGGES3
                   (JOBVSL JOBVSR SORT SELCTG N A LDA B LDB SDIM ALPHA BETA VSL
                    LDVSL VSR LDVSR WORK LWORK RWORK BWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGGES3)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVSL)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVSR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SORT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SELCTG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SDIM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        VSL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVSL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        VSR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVSR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        BWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((SELCTG-REF18447 ':INT32) (N-REF18448 ':INT32)
                              (LDA-REF18450 ':INT32) (LDB-REF18452 ':INT32)
                              (SDIM-REF18453 ':INT32) (LDVSL-REF18457 ':INT32)
                              (LDVSR-REF18459 ':INT32) (LWORK-REF18461 ':INT32)
                              (INFO-REF18464 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF SELCTG-REF18447 :INT32) SELCTG)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18448 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18450 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF18452 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF18453 :INT32) SDIM)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVSL-REF18457 :INT32) LDVSL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVSR-REF18459 :INT32) LDVSR)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18461 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18464 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18449 A) (B-REF18451 B)
                                            (ALPHA-REF18454 ALPHA)
                                            (BETA-REF18455 BETA)
                                            (VSL-REF18456 VSL)
                                            (VSR-REF18458 VSR)
                                            (WORK-REF18460 WORK)
                                            (RWORK-REF18462 RWORK)
                                            (BWORK-REF18463 BWORK))
      (%%ZGGES3 JOBVSL JOBVSR SORT SELCTG-REF18447 N-REF18448 A-REF18449
                LDA-REF18450 B-REF18451 LDB-REF18452 SDIM-REF18453
                ALPHA-REF18454 BETA-REF18455 VSL-REF18456 LDVSL-REF18457
                VSR-REF18458 LDVSR-REF18459 WORK-REF18460 LWORK-REF18461
                RWORK-REF18462 BWORK-REF18463 INFO-REF18464))))

(CFFI:DEFCFUN ("zggesx_" %%ZGGESX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBVSL :STRING)
  (JOBVSR :STRING)
  (SORT :STRING)
  (SELCTG :POINTER)
  (SENSE :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (SDIM :POINTER)
  (ALPHA :POINTER)
  (BETA :POINTER)
  (VSL :POINTER)
  (LDVSL :POINTER)
  (VSR :POINTER)
  (LDVSR :POINTER)
  (RCONDE :POINTER)
  (RCONDV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (BWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGGESX
                   (JOBVSL JOBVSR SORT SELCTG SENSE N A LDA B LDB SDIM ALPHA
                    BETA VSL LDVSL VSR LDVSR RCONDE RCONDV WORK LWORK RWORK
                    IWORK LIWORK BWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGGESX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVSL)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVSR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SORT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SELCTG)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SENSE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SDIM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        VSL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVSL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        VSR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVSR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RCONDE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RCONDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        BWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((SELCTG-REF18468 ':INT32) (N-REF18470 ':INT32)
                              (LDA-REF18472 ':INT32) (LDB-REF18474 ':INT32)
                              (SDIM-REF18475 ':INT32) (LDVSL-REF18479 ':INT32)
                              (LDVSR-REF18481 ':INT32) (LWORK-REF18485 ':INT32)
                              (LIWORK-REF18488 ':INT32) (INFO-REF18490 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF SELCTG-REF18468 :INT32) SELCTG)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18470 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18472 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF18474 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF18475 :INT32) SDIM)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVSL-REF18479 :INT32) LDVSL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVSR-REF18481 :INT32) LDVSR)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18485 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF18488 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18490 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18471 A) (B-REF18473 B)
                                            (ALPHA-REF18476 ALPHA)
                                            (BETA-REF18477 BETA)
                                            (VSL-REF18478 VSL)
                                            (VSR-REF18480 VSR)
                                            (RCONDE-REF18482 RCONDE)
                                            (RCONDV-REF18483 RCONDV)
                                            (WORK-REF18484 WORK)
                                            (RWORK-REF18486 RWORK)
                                            (IWORK-REF18487 IWORK)
                                            (BWORK-REF18489 BWORK))
      (%%ZGGESX JOBVSL JOBVSR SORT SELCTG-REF18468 SENSE N-REF18470 A-REF18471
                LDA-REF18472 B-REF18473 LDB-REF18474 SDIM-REF18475
                ALPHA-REF18476 BETA-REF18477 VSL-REF18478 LDVSL-REF18479
                VSR-REF18480 LDVSR-REF18481 RCONDE-REF18482 RCONDV-REF18483
                WORK-REF18484 LWORK-REF18485 RWORK-REF18486 IWORK-REF18487
                LIWORK-REF18488 BWORK-REF18489 INFO-REF18490))))

(CFFI:DEFCFUN ("zggev_" %%ZGGEV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBVL :STRING)
  (JOBVR :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (ALPHA :POINTER)
  (BETA :POINTER)
  (VL :POINTER)
  (LDVL :POINTER)
  (VR :POINTER)
  (LDVR :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGGEV
                   (JOBVL JOBVR N A LDA B LDB ALPHA BETA VL LDVL VR LDVR WORK
                    LWORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGGEV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVL)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        VL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        VR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18493 ':INT32) (LDA-REF18495 ':INT32)
                              (LDB-REF18497 ':INT32) (LDVL-REF18501 ':INT32)
                              (LDVR-REF18503 ':INT32) (LWORK-REF18505 ':INT32)
                              (INFO-REF18507 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18493 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18495 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF18497 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF18501 :INT32) LDVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF18503 :INT32) LDVR)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18505 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18507 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18494 A) (B-REF18496 B)
                                            (ALPHA-REF18498 ALPHA)
                                            (BETA-REF18499 BETA)
                                            (VL-REF18500 VL) (VR-REF18502 VR)
                                            (WORK-REF18504 WORK)
                                            (RWORK-REF18506 RWORK))
      (%%ZGGEV JOBVL JOBVR N-REF18493 A-REF18494 LDA-REF18495 B-REF18496
               LDB-REF18497 ALPHA-REF18498 BETA-REF18499 VL-REF18500
               LDVL-REF18501 VR-REF18502 LDVR-REF18503 WORK-REF18504
               LWORK-REF18505 RWORK-REF18506 INFO-REF18507))))

(CFFI:DEFCFUN ("zggev3_" %%ZGGEV3 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBVL :STRING)
  (JOBVR :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (ALPHA :POINTER)
  (BETA :POINTER)
  (VL :POINTER)
  (LDVL :POINTER)
  (VR :POINTER)
  (LDVR :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGGEV3
                   (JOBVL JOBVR N A LDA B LDB ALPHA BETA VL LDVL VR LDVR WORK
                    LWORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGGEV3)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVL)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        VL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        VR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18510 ':INT32) (LDA-REF18512 ':INT32)
                              (LDB-REF18514 ':INT32) (LDVL-REF18518 ':INT32)
                              (LDVR-REF18520 ':INT32) (LWORK-REF18522 ':INT32)
                              (INFO-REF18524 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18510 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18512 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF18514 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF18518 :INT32) LDVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF18520 :INT32) LDVR)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18522 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18524 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18511 A) (B-REF18513 B)
                                            (ALPHA-REF18515 ALPHA)
                                            (BETA-REF18516 BETA)
                                            (VL-REF18517 VL) (VR-REF18519 VR)
                                            (WORK-REF18521 WORK)
                                            (RWORK-REF18523 RWORK))
      (%%ZGGEV3 JOBVL JOBVR N-REF18510 A-REF18511 LDA-REF18512 B-REF18513
                LDB-REF18514 ALPHA-REF18515 BETA-REF18516 VL-REF18517
                LDVL-REF18518 VR-REF18519 LDVR-REF18520 WORK-REF18521
                LWORK-REF18522 RWORK-REF18523 INFO-REF18524))))

(CFFI:DEFCFUN ("zggevx_" %%ZGGEVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (BALANC :STRING)
  (JOBVL :STRING)
  (JOBVR :STRING)
  (SENSE :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (ALPHA :POINTER)
  (BETA :POINTER)
  (VL :POINTER)
  (LDVL :POINTER)
  (VR :POINTER)
  (LDVR :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (LSCALE :POINTER)
  (RSCALE :POINTER)
  (ABNRM :POINTER)
  (BBNRM :POINTER)
  (RCONDE :POINTER)
  (RCONDV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (IWORK :POINTER)
  (BWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGGEVX
                   (BALANC JOBVL JOBVR SENSE N A LDA B LDB ALPHA BETA VL LDVL
                    VR LDVR ILO IHI LSCALE RSCALE ABNRM BBNRM RCONDE RCONDV
                    WORK LWORK RWORK IWORK BWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGGEVX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING BALANC)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVL)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SENSE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        VL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        VR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        LSCALE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RSCALE)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ABNRM)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT BBNRM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RCONDE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RCONDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        BWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18529 ':INT32) (LDA-REF18531 ':INT32)
                              (LDB-REF18533 ':INT32) (LDVL-REF18537 ':INT32)
                              (LDVR-REF18539 ':INT32) (ILO-REF18540 ':INT32)
                              (IHI-REF18541 ':INT32) (ABNRM-REF18544 ':DOUBLE)
                              (BBNRM-REF18545 ':DOUBLE)
                              (LWORK-REF18549 ':INT32) (INFO-REF18553 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18529 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18531 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF18533 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF18537 :INT32) LDVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF18539 :INT32) LDVR)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF18540 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF18541 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABNRM-REF18544 :DOUBLE) ABNRM)
    (COMMON-LISP:SETF (CFFI:MEM-REF BBNRM-REF18545 :DOUBLE) BBNRM)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18549 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18553 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18530 A) (B-REF18532 B)
                                            (ALPHA-REF18534 ALPHA)
                                            (BETA-REF18535 BETA)
                                            (VL-REF18536 VL) (VR-REF18538 VR)
                                            (LSCALE-REF18542 LSCALE)
                                            (RSCALE-REF18543 RSCALE)
                                            (RCONDE-REF18546 RCONDE)
                                            (RCONDV-REF18547 RCONDV)
                                            (WORK-REF18548 WORK)
                                            (RWORK-REF18550 RWORK)
                                            (IWORK-REF18551 IWORK)
                                            (BWORK-REF18552 BWORK))
      (%%ZGGEVX BALANC JOBVL JOBVR SENSE N-REF18529 A-REF18530 LDA-REF18531
                B-REF18532 LDB-REF18533 ALPHA-REF18534 BETA-REF18535
                VL-REF18536 LDVL-REF18537 VR-REF18538 LDVR-REF18539
                ILO-REF18540 IHI-REF18541 LSCALE-REF18542 RSCALE-REF18543
                ABNRM-REF18544 BBNRM-REF18545 RCONDE-REF18546 RCONDV-REF18547
                WORK-REF18548 LWORK-REF18549 RWORK-REF18550 IWORK-REF18551
                BWORK-REF18552 INFO-REF18553))))

(CFFI:DEFCFUN ("zggglm_" %%ZGGGLM :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (M :POINTER)
  (P :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (D :POINTER)
  (X :POINTER)
  (Y :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGGGLM (N M P A LDA B LDB D X Y WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGGGLM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Y)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18554 ':INT32) (M-REF18555 ':INT32)
                              (P-REF18556 ':INT32) (LDA-REF18558 ':INT32)
                              (LDB-REF18560 ':INT32) (LWORK-REF18565 ':INT32)
                              (INFO-REF18566 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18554 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18555 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF18556 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18558 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF18560 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18565 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18566 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18557 A) (B-REF18559 B)
                                            (D-REF18561 D) (X-REF18562 X)
                                            (Y-REF18563 Y) (WORK-REF18564 WORK))
      (%%ZGGGLM N-REF18554 M-REF18555 P-REF18556 A-REF18557 LDA-REF18558
                B-REF18559 LDB-REF18560 D-REF18561 X-REF18562 Y-REF18563
                WORK-REF18564 LWORK-REF18565 INFO-REF18566))))

(CFFI:DEFCFUN ("zgghd3_" %%ZGGHD3 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (COMPQ :STRING)
  (COMPZ :STRING)
  (N :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGGHD3
                   (COMPQ COMPZ N ILO IHI A LDA B LDB Q LDQ Z LDZ WORK LWORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGGHD3)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING COMPQ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING COMPZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18569 ':INT32) (ILO-REF18570 ':INT32)
                              (IHI-REF18571 ':INT32) (LDA-REF18573 ':INT32)
                              (LDB-REF18575 ':INT32) (LDQ-REF18577 ':INT32)
                              (LDZ-REF18579 ':INT32) (LWORK-REF18581 ':INT32)
                              (INFO-REF18582 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18569 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF18570 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF18571 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18573 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF18575 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF18577 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF18579 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18581 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18582 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18572 A) (B-REF18574 B)
                                            (Q-REF18576 Q) (Z-REF18578 Z)
                                            (WORK-REF18580 WORK))
      (%%ZGGHD3 COMPQ COMPZ N-REF18569 ILO-REF18570 IHI-REF18571 A-REF18572
                LDA-REF18573 B-REF18574 LDB-REF18575 Q-REF18576 LDQ-REF18577
                Z-REF18578 LDZ-REF18579 WORK-REF18580 LWORK-REF18581
                INFO-REF18582))))

(CFFI:DEFCFUN ("zgghrd_" %%ZGGHRD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (COMPQ :STRING)
  (COMPZ :STRING)
  (N :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGGHRD (COMPQ COMPZ N ILO IHI A LDA B LDB Q LDQ Z LDZ INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGGHRD)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING COMPQ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING COMPZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18585 ':INT32) (ILO-REF18586 ':INT32)
                              (IHI-REF18587 ':INT32) (LDA-REF18589 ':INT32)
                              (LDB-REF18591 ':INT32) (LDQ-REF18593 ':INT32)
                              (LDZ-REF18595 ':INT32) (INFO-REF18596 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18585 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF18586 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF18587 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18589 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF18591 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF18593 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF18595 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18596 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18588 A) (B-REF18590 B)
                                            (Q-REF18592 Q) (Z-REF18594 Z))
      (%%ZGGHRD COMPQ COMPZ N-REF18585 ILO-REF18586 IHI-REF18587 A-REF18588
                LDA-REF18589 B-REF18590 LDB-REF18591 Q-REF18592 LDQ-REF18593
                Z-REF18594 LDZ-REF18595 INFO-REF18596))))

(CFFI:DEFCFUN ("zgglse_" %%ZGGLSE :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (P :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (C :POINTER)
  (D :POINTER)
  (X :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGGLSE (M N P A LDA B LDB C D X WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGGLSE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18597 ':INT32) (N-REF18598 ':INT32)
                              (P-REF18599 ':INT32) (LDA-REF18601 ':INT32)
                              (LDB-REF18603 ':INT32) (LWORK-REF18608 ':INT32)
                              (INFO-REF18609 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18597 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18598 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF18599 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18601 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF18603 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18608 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18609 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18600 A) (B-REF18602 B)
                                            (C-REF18604 C) (D-REF18605 D)
                                            (X-REF18606 X) (WORK-REF18607 WORK))
      (%%ZGGLSE M-REF18597 N-REF18598 P-REF18599 A-REF18600 LDA-REF18601
                B-REF18602 LDB-REF18603 C-REF18604 D-REF18605 X-REF18606
                WORK-REF18607 LWORK-REF18608 INFO-REF18609))))

(CFFI:DEFCFUN ("zggqrf_" %%ZGGQRF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (M :POINTER)
  (P :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAUA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (TAUB :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGGQRF (N M P A LDA TAUA B LDB TAUB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGGQRF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAUA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAUB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18610 ':INT32) (M-REF18611 ':INT32)
                              (P-REF18612 ':INT32) (LDA-REF18614 ':INT32)
                              (LDB-REF18617 ':INT32) (LWORK-REF18620 ':INT32)
                              (INFO-REF18621 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18610 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18611 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF18612 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18614 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF18617 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18620 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18621 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18613 A) (TAUA-REF18615 TAUA)
                                            (B-REF18616 B) (TAUB-REF18618 TAUB)
                                            (WORK-REF18619 WORK))
      (%%ZGGQRF N-REF18610 M-REF18611 P-REF18612 A-REF18613 LDA-REF18614
                TAUA-REF18615 B-REF18616 LDB-REF18617 TAUB-REF18618
                WORK-REF18619 LWORK-REF18620 INFO-REF18621))))

(CFFI:DEFCFUN ("zggrqf_" %%ZGGRQF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (P :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAUA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (TAUB :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGGRQF (M P N A LDA TAUA B LDB TAUB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGGRQF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAUA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAUB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18622 ':INT32) (P-REF18623 ':INT32)
                              (N-REF18624 ':INT32) (LDA-REF18626 ':INT32)
                              (LDB-REF18629 ':INT32) (LWORK-REF18632 ':INT32)
                              (INFO-REF18633 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18622 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF18623 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18624 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18626 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF18629 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18632 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18633 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18625 A) (TAUA-REF18627 TAUA)
                                            (B-REF18628 B) (TAUB-REF18630 TAUB)
                                            (WORK-REF18631 WORK))
      (%%ZGGRQF M-REF18622 P-REF18623 N-REF18624 A-REF18625 LDA-REF18626
                TAUA-REF18627 B-REF18628 LDB-REF18629 TAUB-REF18630
                WORK-REF18631 LWORK-REF18632 INFO-REF18633))))

(CFFI:DEFCFUN ("zggsvd3_" %%ZGGSVD3 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBU :STRING)
  (JOBV :STRING)
  (JOBQ :STRING)
  (M :POINTER)
  (N :POINTER)
  (P :POINTER)
  (K :POINTER)
  (L :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (ALPHA :POINTER)
  (BETA :POINTER)
  (U :POINTER)
  (LDU :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGGSVD3
                   (JOBU JOBV JOBQ M N P K L A LDA B LDB ALPHA BETA U LDU V LDV
                    Q LDQ WORK LWORK RWORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGGSVD3)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        U)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18637 ':INT32) (N-REF18638 ':INT32)
                              (P-REF18639 ':INT32) (K-REF18640 ':INT32)
                              (L-REF18641 ':INT32) (LDA-REF18643 ':INT32)
                              (LDB-REF18645 ':INT32) (LDU-REF18649 ':INT32)
                              (LDV-REF18651 ':INT32) (LDQ-REF18653 ':INT32)
                              (LWORK-REF18655 ':INT32) (INFO-REF18658 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18637 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18638 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF18639 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF18640 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF18641 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18643 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF18645 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF18649 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF18651 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF18653 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18655 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18658 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18642 A) (B-REF18644 B)
                                            (ALPHA-REF18646 ALPHA)
                                            (BETA-REF18647 BETA) (U-REF18648 U)
                                            (V-REF18650 V) (Q-REF18652 Q)
                                            (WORK-REF18654 WORK)
                                            (RWORK-REF18656 RWORK)
                                            (IWORK-REF18657 IWORK))
      (%%ZGGSVD3 JOBU JOBV JOBQ M-REF18637 N-REF18638 P-REF18639 K-REF18640
                 L-REF18641 A-REF18642 LDA-REF18643 B-REF18644 LDB-REF18645
                 ALPHA-REF18646 BETA-REF18647 U-REF18648 LDU-REF18649
                 V-REF18650 LDV-REF18651 Q-REF18652 LDQ-REF18653 WORK-REF18654
                 LWORK-REF18655 RWORK-REF18656 IWORK-REF18657 INFO-REF18658))))

(CFFI:DEFCFUN ("zggsvp3_" %%ZGGSVP3 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBU :STRING)
  (JOBV :STRING)
  (JOBQ :STRING)
  (M :POINTER)
  (P :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (TOLA :POINTER)
  (TOLB :POINTER)
  (K :POINTER)
  (L :POINTER)
  (U :POINTER)
  (LDU :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (IWORK :POINTER)
  (RWORK :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGGSVP3
                   (JOBU JOBV JOBQ M P N A LDA B LDB TOLA TOLB K L U LDU V LDV
                    Q LDQ IWORK RWORK TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGGSVP3)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT TOLA)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT TOLB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        U)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18662 ':INT32) (P-REF18663 ':INT32)
                              (N-REF18664 ':INT32) (LDA-REF18666 ':INT32)
                              (LDB-REF18668 ':INT32) (TOLA-REF18669 ':DOUBLE)
                              (TOLB-REF18670 ':DOUBLE) (K-REF18671 ':INT32)
                              (L-REF18672 ':INT32) (LDU-REF18674 ':INT32)
                              (LDV-REF18676 ':INT32) (LDQ-REF18678 ':INT32)
                              (LWORK-REF18683 ':INT32) (INFO-REF18684 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18662 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF18663 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18664 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18666 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF18668 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF TOLA-REF18669 :DOUBLE) TOLA)
    (COMMON-LISP:SETF (CFFI:MEM-REF TOLB-REF18670 :DOUBLE) TOLB)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF18671 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF18672 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF18674 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF18676 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF18678 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18683 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18684 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18665 A) (B-REF18667 B)
                                            (U-REF18673 U) (V-REF18675 V)
                                            (Q-REF18677 Q)
                                            (IWORK-REF18679 IWORK)
                                            (RWORK-REF18680 RWORK)
                                            (TAU-REF18681 TAU)
                                            (WORK-REF18682 WORK))
      (%%ZGGSVP3 JOBU JOBV JOBQ M-REF18662 P-REF18663 N-REF18664 A-REF18665
                 LDA-REF18666 B-REF18667 LDB-REF18668 TOLA-REF18669
                 TOLB-REF18670 K-REF18671 L-REF18672 U-REF18673 LDU-REF18674
                 V-REF18675 LDV-REF18676 Q-REF18677 LDQ-REF18678 IWORK-REF18679
                 RWORK-REF18680 TAU-REF18681 WORK-REF18682 LWORK-REF18683
                 INFO-REF18684))))

(CFFI:DEFCFUN ("zgsvj0_" %%ZGSVJ0 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBV :STRING)
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (D :POINTER)
  (SVA :POINTER)
  (MV :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (EPS :POINTER)
  (SFMIN :POINTER)
  (TOL :POINTER)
  (NSWEEP :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGSVJ0
                   (JOBV M N A LDA D SVA MV V LDV EPS SFMIN TOL NSWEEP WORK
                    LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGSVJ0)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        SVA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT EPS)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SFMIN)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT TOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NSWEEP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18686 ':INT32) (N-REF18687 ':INT32)
                              (LDA-REF18689 ':INT32) (MV-REF18692 ':INT32)
                              (LDV-REF18694 ':INT32) (EPS-REF18695 ':DOUBLE)
                              (SFMIN-REF18696 ':DOUBLE) (TOL-REF18697 ':DOUBLE)
                              (NSWEEP-REF18698 ':INT32)
                              (LWORK-REF18700 ':INT32) (INFO-REF18701 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18686 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18687 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18689 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF MV-REF18692 :INT32) MV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF18694 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF EPS-REF18695 :DOUBLE) EPS)
    (COMMON-LISP:SETF (CFFI:MEM-REF SFMIN-REF18696 :DOUBLE) SFMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF TOL-REF18697 :DOUBLE) TOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF NSWEEP-REF18698 :INT32) NSWEEP)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18700 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18701 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18688 A) (D-REF18690 D)
                                            (SVA-REF18691 SVA) (V-REF18693 V)
                                            (WORK-REF18699 WORK))
      (%%ZGSVJ0 JOBV M-REF18686 N-REF18687 A-REF18688 LDA-REF18689 D-REF18690
                SVA-REF18691 MV-REF18692 V-REF18693 LDV-REF18694 EPS-REF18695
                SFMIN-REF18696 TOL-REF18697 NSWEEP-REF18698 WORK-REF18699
                LWORK-REF18700 INFO-REF18701))))

(CFFI:DEFCFUN ("zgsvj1_" %%ZGSVJ1 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBV :STRING)
  (M :POINTER)
  (N :POINTER)
  (N1 :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (D :POINTER)
  (SVA :POINTER)
  (MV :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (EPS :POINTER)
  (SFMIN :POINTER)
  (TOL :POINTER)
  (NSWEEP :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGSVJ1
                   (JOBV M N N1 A LDA D SVA MV V LDV EPS SFMIN TOL NSWEEP WORK
                    LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGSVJ1)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        SVA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT EPS)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SFMIN)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT TOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NSWEEP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18703 ':INT32) (N-REF18704 ':INT32)
                              (N1-REF18705 ':INT32) (LDA-REF18707 ':INT32)
                              (MV-REF18710 ':INT32) (LDV-REF18712 ':INT32)
                              (EPS-REF18713 ':DOUBLE) (SFMIN-REF18714 ':DOUBLE)
                              (TOL-REF18715 ':DOUBLE) (NSWEEP-REF18716 ':INT32)
                              (LWORK-REF18718 ':INT32) (INFO-REF18719 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18703 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18704 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF N1-REF18705 :INT32) N1)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18707 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF MV-REF18710 :INT32) MV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF18712 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF EPS-REF18713 :DOUBLE) EPS)
    (COMMON-LISP:SETF (CFFI:MEM-REF SFMIN-REF18714 :DOUBLE) SFMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF TOL-REF18715 :DOUBLE) TOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF NSWEEP-REF18716 :INT32) NSWEEP)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18718 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18719 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18706 A) (D-REF18708 D)
                                            (SVA-REF18709 SVA) (V-REF18711 V)
                                            (WORK-REF18717 WORK))
      (%%ZGSVJ1 JOBV M-REF18703 N-REF18704 N1-REF18705 A-REF18706 LDA-REF18707
                D-REF18708 SVA-REF18709 MV-REF18710 V-REF18711 LDV-REF18712
                EPS-REF18713 SFMIN-REF18714 TOL-REF18715 NSWEEP-REF18716
                WORK-REF18717 LWORK-REF18718 INFO-REF18719))))

(CFFI:DEFCFUN ("zgtcon_" %%ZGTCON :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (NORM :STRING)
  (N :POINTER)
  (DL :POINTER)
  (D :POINTER)
  (DU :POINTER)
  (DU2 :POINTER)
  (IPIV :POINTER)
  (ANORM :POINTER)
  (RCOND :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGTCON (NORM N DL D DU DU2 IPIV ANORM RCOND WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGTCON)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        DL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        DU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        DU2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ANORM)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18721 ':INT32) (ANORM-REF18727 ':DOUBLE)
                              (RCOND-REF18728 ':DOUBLE) (INFO-REF18730 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18721 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF18727 :DOUBLE) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF18728 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18730 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF18722 DL) (D-REF18723 D)
                                            (DU-REF18724 DU) (DU2-REF18725 DU2)
                                            (IPIV-REF18726 IPIV)
                                            (WORK-REF18729 WORK))
      (%%ZGTCON NORM N-REF18721 DL-REF18722 D-REF18723 DU-REF18724 DU2-REF18725
                IPIV-REF18726 ANORM-REF18727 RCOND-REF18728 WORK-REF18729
                INFO-REF18730))))

(CFFI:DEFCFUN ("zgtrfs_" %%ZGTRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (TRANS :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (DL :POINTER)
  (D :POINTER)
  (DU :POINTER)
  (DLF :POINTER)
  (DF :POINTER)
  (DUF :POINTER)
  (DU2 :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGTRFS
                   (TRANS N NRHS DL D DU DLF DF DUF DU2 IPIV B LDB X LDX FERR
                    BERR WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGTRFS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        DL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        DU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        DLF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        DF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        DUF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        DU2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18732 ':INT32) (NRHS-REF18733 ':INT32)
                              (LDB-REF18743 ':INT32) (LDX-REF18745 ':INT32)
                              (INFO-REF18750 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18732 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF18733 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF18743 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF18745 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18750 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF18734 DL) (D-REF18735 D)
                                            (DU-REF18736 DU) (DLF-REF18737 DLF)
                                            (DF-REF18738 DF) (DUF-REF18739 DUF)
                                            (DU2-REF18740 DU2)
                                            (IPIV-REF18741 IPIV) (B-REF18742 B)
                                            (X-REF18744 X) (FERR-REF18746 FERR)
                                            (BERR-REF18747 BERR)
                                            (WORK-REF18748 WORK)
                                            (RWORK-REF18749 RWORK))
      (%%ZGTRFS TRANS N-REF18732 NRHS-REF18733 DL-REF18734 D-REF18735
                DU-REF18736 DLF-REF18737 DF-REF18738 DUF-REF18739 DU2-REF18740
                IPIV-REF18741 B-REF18742 LDB-REF18743 X-REF18744 LDX-REF18745
                FERR-REF18746 BERR-REF18747 WORK-REF18748 RWORK-REF18749
                INFO-REF18750))))

(CFFI:DEFCFUN ("zgtsv_" %%ZGTSV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (NRHS :POINTER)
  (DL :POINTER)
  (D :POINTER)
  (DU :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGTSV (N NRHS DL D DU B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGTSV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        DL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        DU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18751 ':INT32) (NRHS-REF18752 ':INT32)
                              (LDB-REF18757 ':INT32) (INFO-REF18758 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18751 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF18752 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF18757 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18758 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF18753 DL) (D-REF18754 D)
                                            (DU-REF18755 DU) (B-REF18756 B))
      (%%ZGTSV N-REF18751 NRHS-REF18752 DL-REF18753 D-REF18754 DU-REF18755
               B-REF18756 LDB-REF18757 INFO-REF18758))))

(CFFI:DEFCFUN ("zgtsvx_" %%ZGTSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (FACT :STRING)
  (TRANS :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (DL :POINTER)
  (D :POINTER)
  (DU :POINTER)
  (DLF :POINTER)
  (DF :POINTER)
  (DUF :POINTER)
  (DU2 :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGTSVX
                   (FACT TRANS N NRHS DL D DU DLF DF DUF DU2 IPIV B LDB X LDX
                    RCOND FERR BERR WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGTSVX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        DL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        DU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        DLF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        DF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        DUF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        DU2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18761 ':INT32) (NRHS-REF18762 ':INT32)
                              (LDB-REF18772 ':INT32) (LDX-REF18774 ':INT32)
                              (RCOND-REF18775 ':DOUBLE) (INFO-REF18780 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18761 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF18762 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF18772 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF18774 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF18775 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18780 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF18763 DL) (D-REF18764 D)
                                            (DU-REF18765 DU) (DLF-REF18766 DLF)
                                            (DF-REF18767 DF) (DUF-REF18768 DUF)
                                            (DU2-REF18769 DU2)
                                            (IPIV-REF18770 IPIV) (B-REF18771 B)
                                            (X-REF18773 X) (FERR-REF18776 FERR)
                                            (BERR-REF18777 BERR)
                                            (WORK-REF18778 WORK)
                                            (RWORK-REF18779 RWORK))
      (%%ZGTSVX FACT TRANS N-REF18761 NRHS-REF18762 DL-REF18763 D-REF18764
                DU-REF18765 DLF-REF18766 DF-REF18767 DUF-REF18768 DU2-REF18769
                IPIV-REF18770 B-REF18771 LDB-REF18772 X-REF18773 LDX-REF18774
                RCOND-REF18775 FERR-REF18776 BERR-REF18777 WORK-REF18778
                RWORK-REF18779 INFO-REF18780))))

(CFFI:DEFCFUN ("zgttrf_" %%ZGTTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (DL :POINTER)
  (D :POINTER)
  (DU :POINTER)
  (DU2 :POINTER)
  (IPIV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGTTRF (N DL D DU DU2 IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGTTRF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        DL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        DU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        DU2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18781 ':INT32) (INFO-REF18787 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18781 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18787 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF18782 DL) (D-REF18783 D)
                                            (DU-REF18784 DU) (DU2-REF18785 DU2)
                                            (IPIV-REF18786 IPIV))
      (%%ZGTTRF N-REF18781 DL-REF18782 D-REF18783 DU-REF18784 DU2-REF18785
                IPIV-REF18786 INFO-REF18787))))

(CFFI:DEFCFUN ("zgttrs_" %%ZGTTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (TRANS :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (DL :POINTER)
  (D :POINTER)
  (DU :POINTER)
  (DU2 :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZGTTRS (TRANS N NRHS DL D DU DU2 IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGTTRS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        DL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        DU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        DU2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18789 ':INT32) (NRHS-REF18790 ':INT32)
                              (LDB-REF18797 ':INT32) (INFO-REF18798 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18789 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF18790 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF18797 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18798 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF18791 DL) (D-REF18792 D)
                                            (DU-REF18793 DU) (DU2-REF18794 DU2)
                                            (IPIV-REF18795 IPIV) (B-REF18796 B))
      (%%ZGTTRS TRANS N-REF18789 NRHS-REF18790 DL-REF18791 D-REF18792
                DU-REF18793 DU2-REF18794 IPIV-REF18795 B-REF18796 LDB-REF18797
                INFO-REF18798))))

(CFFI:DEFCFUN ("zgtts2_" %%ZGTTS2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (ITRANS :POINTER)
  (N :POINTER)
  (NRHS :POINTER)
  (DL :POINTER)
  (D :POINTER)
  (DU :POINTER)
  (DU2 :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER))

(COMMON-LISP:DEFUN %ZGTTS2 (ITRANS N NRHS DL D DU DU2 IPIV B LDB)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGTTS2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        DL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        DU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        DU2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB))
  (CFFI:WITH-FOREIGN-OBJECTS ((ITRANS-REF18799 ':INT32) (N-REF18800 ':INT32)
                              (NRHS-REF18801 ':INT32) (LDB-REF18808 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ITRANS-REF18799 :INT32) ITRANS)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18800 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF18801 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF18808 :INT32) LDB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF18802 DL) (D-REF18803 D)
                                            (DU-REF18804 DU) (DU2-REF18805 DU2)
                                            (IPIV-REF18806 IPIV) (B-REF18807 B))
      (%%ZGTTS2 ITRANS-REF18799 N-REF18800 NRHS-REF18801 DL-REF18802 D-REF18803
                DU-REF18804 DU2-REF18805 IPIV-REF18806 B-REF18807
                LDB-REF18808))))

(CFFI:DEFCFUN ("zhb2st_kernels_" %%ZHB2ST_KERNELS :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (WANTZ :POINTER)
  (TTYPE :POINTER)
  (ST :POINTER)
  (ED :POINTER)
  (SWEEP :POINTER)
  (N :POINTER)
  (NB :POINTER)
  (IB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (V :POINTER)
  (TAU :POINTER)
  (LDVT :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %ZHB2ST_KERNELS
                   (UPLO WANTZ TTYPE ST ED SWEEP N NB IB A LDA V TAU LDVT WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHB2ST_KERNELS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TTYPE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ST)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ED)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SWEEP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        V)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((WANTZ-REF18810 ':INT32) (TTYPE-REF18811 ':INT32)
                              (ST-REF18812 ':INT32) (ED-REF18813 ':INT32)
                              (SWEEP-REF18814 ':INT32) (N-REF18815 ':INT32)
                              (NB-REF18816 ':INT32) (IB-REF18817 ':INT32)
                              (LDA-REF18819 ':INT32) (LDVT-REF18822 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF18810 :INT32) WANTZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF TTYPE-REF18811 :INT32) TTYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF ST-REF18812 :INT32) ST)
    (COMMON-LISP:SETF (CFFI:MEM-REF ED-REF18813 :INT32) ED)
    (COMMON-LISP:SETF (CFFI:MEM-REF SWEEP-REF18814 :INT32) SWEEP)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18815 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF18816 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF IB-REF18817 :INT32) IB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18819 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF18822 :INT32) LDVT)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18818 A) (V-REF18820 V)
                                            (TAU-REF18821 TAU)
                                            (WORK-REF18823 WORK))
      (%%ZHB2ST_KERNELS UPLO WANTZ-REF18810 TTYPE-REF18811 ST-REF18812
                        ED-REF18813 SWEEP-REF18814 N-REF18815 NB-REF18816
                        IB-REF18817 A-REF18818 LDA-REF18819 V-REF18820
                        TAU-REF18821 LDVT-REF18822 WORK-REF18823))))

(CFFI:DEFCFUN ("zhbev_" %%ZHBEV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHBEV (JOBZ UPLO N KD AB LDAB W Z LDZ WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHBEV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18826 ':INT32) (KD-REF18827 ':INT32)
                              (LDAB-REF18829 ':INT32) (LDZ-REF18832 ':INT32)
                              (INFO-REF18835 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18826 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF18827 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF18829 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF18832 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18835 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF18828 AB) (W-REF18830 W)
                                            (Z-REF18831 Z) (WORK-REF18833 WORK)
                                            (RWORK-REF18834 RWORK))
      (%%ZHBEV JOBZ UPLO N-REF18826 KD-REF18827 AB-REF18828 LDAB-REF18829
               W-REF18830 Z-REF18831 LDZ-REF18832 WORK-REF18833 RWORK-REF18834
               INFO-REF18835))))

(CFFI:DEFCFUN ("zhbev_2stage_" %%ZHBEV_2STAGE :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHBEV_2STAGE
                   (JOBZ UPLO N KD AB LDAB W Z LDZ WORK LWORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHBEV_2STAGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18838 ':INT32) (KD-REF18839 ':INT32)
                              (LDAB-REF18841 ':INT32) (LDZ-REF18844 ':INT32)
                              (LWORK-REF18846 ':INT32) (INFO-REF18848 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18838 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF18839 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF18841 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF18844 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18846 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18848 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF18840 AB) (W-REF18842 W)
                                            (Z-REF18843 Z) (WORK-REF18845 WORK)
                                            (RWORK-REF18847 RWORK))
      (%%ZHBEV_2STAGE JOBZ UPLO N-REF18838 KD-REF18839 AB-REF18840
                      LDAB-REF18841 W-REF18842 Z-REF18843 LDZ-REF18844
                      WORK-REF18845 LWORK-REF18846 RWORK-REF18847
                      INFO-REF18848))))

(CFFI:DEFCFUN ("zhbevd_" %%ZHBEVD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (LRWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHBEVD
                   (JOBZ UPLO N KD AB LDAB W Z LDZ WORK LWORK RWORK LRWORK
                    IWORK LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHBEVD)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LRWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18851 ':INT32) (KD-REF18852 ':INT32)
                              (LDAB-REF18854 ':INT32) (LDZ-REF18857 ':INT32)
                              (LWORK-REF18859 ':INT32)
                              (LRWORK-REF18861 ':INT32)
                              (LIWORK-REF18863 ':INT32) (INFO-REF18864 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18851 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF18852 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF18854 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF18857 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18859 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF18861 :INT32) LRWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF18863 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18864 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF18853 AB) (W-REF18855 W)
                                            (Z-REF18856 Z) (WORK-REF18858 WORK)
                                            (RWORK-REF18860 RWORK)
                                            (IWORK-REF18862 IWORK))
      (%%ZHBEVD JOBZ UPLO N-REF18851 KD-REF18852 AB-REF18853 LDAB-REF18854
                W-REF18855 Z-REF18856 LDZ-REF18857 WORK-REF18858 LWORK-REF18859
                RWORK-REF18860 LRWORK-REF18861 IWORK-REF18862 LIWORK-REF18863
                INFO-REF18864))))

(CFFI:DEFCFUN ("zhbevd_2stage_" %%ZHBEVD_2STAGE :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (LRWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHBEVD_2STAGE
                   (JOBZ UPLO N KD AB LDAB W Z LDZ WORK LWORK RWORK LRWORK
                    IWORK LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHBEVD_2STAGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LRWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18867 ':INT32) (KD-REF18868 ':INT32)
                              (LDAB-REF18870 ':INT32) (LDZ-REF18873 ':INT32)
                              (LWORK-REF18875 ':INT32)
                              (LRWORK-REF18877 ':INT32)
                              (LIWORK-REF18879 ':INT32) (INFO-REF18880 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18867 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF18868 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF18870 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF18873 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18875 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF18877 :INT32) LRWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF18879 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18880 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF18869 AB) (W-REF18871 W)
                                            (Z-REF18872 Z) (WORK-REF18874 WORK)
                                            (RWORK-REF18876 RWORK)
                                            (IWORK-REF18878 IWORK))
      (%%ZHBEVD_2STAGE JOBZ UPLO N-REF18867 KD-REF18868 AB-REF18869
                       LDAB-REF18870 W-REF18871 Z-REF18872 LDZ-REF18873
                       WORK-REF18874 LWORK-REF18875 RWORK-REF18876
                       LRWORK-REF18877 IWORK-REF18878 LIWORK-REF18879
                       INFO-REF18880))))

(CFFI:DEFCFUN ("zhbevx_" %%ZHBEVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (RANGE :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (IL :POINTER)
  (IU :POINTER)
  (ABSTOL :POINTER)
  (M :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (IWORK :POINTER)
  (IFAIL :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHBEVX
                   (JOBZ RANGE UPLO N KD AB LDAB Q LDQ VL VU IL IU ABSTOL M W Z
                    LDZ WORK RWORK IWORK IFAIL INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHBEVX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ABSTOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IFAIL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18884 ':INT32) (KD-REF18885 ':INT32)
                              (LDAB-REF18887 ':INT32) (LDQ-REF18889 ':INT32)
                              (VL-REF18890 ':DOUBLE) (VU-REF18891 ':DOUBLE)
                              (IL-REF18892 ':INT32) (IU-REF18893 ':INT32)
                              (ABSTOL-REF18894 ':DOUBLE) (M-REF18895 ':INT32)
                              (LDZ-REF18898 ':INT32) (INFO-REF18903 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18884 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF18885 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF18887 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF18889 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF18890 :DOUBLE) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF18891 :DOUBLE) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF18892 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF18893 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF18894 :DOUBLE) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18895 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF18898 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18903 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF18886 AB) (Q-REF18888 Q)
                                            (W-REF18896 W) (Z-REF18897 Z)
                                            (WORK-REF18899 WORK)
                                            (RWORK-REF18900 RWORK)
                                            (IWORK-REF18901 IWORK)
                                            (IFAIL-REF18902 IFAIL))
      (%%ZHBEVX JOBZ RANGE UPLO N-REF18884 KD-REF18885 AB-REF18886
                LDAB-REF18887 Q-REF18888 LDQ-REF18889 VL-REF18890 VU-REF18891
                IL-REF18892 IU-REF18893 ABSTOL-REF18894 M-REF18895 W-REF18896
                Z-REF18897 LDZ-REF18898 WORK-REF18899 RWORK-REF18900
                IWORK-REF18901 IFAIL-REF18902 INFO-REF18903))))

(CFFI:DEFCFUN ("zhbevx_2stage_" %%ZHBEVX_2STAGE :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (RANGE :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (IL :POINTER)
  (IU :POINTER)
  (ABSTOL :POINTER)
  (M :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (IWORK :POINTER)
  (IFAIL :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHBEVX_2STAGE
                   (JOBZ RANGE UPLO N KD AB LDAB Q LDQ VL VU IL IU ABSTOL M W Z
                    LDZ WORK LWORK RWORK IWORK IFAIL INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHBEVX_2STAGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ABSTOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IFAIL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18907 ':INT32) (KD-REF18908 ':INT32)
                              (LDAB-REF18910 ':INT32) (LDQ-REF18912 ':INT32)
                              (VL-REF18913 ':DOUBLE) (VU-REF18914 ':DOUBLE)
                              (IL-REF18915 ':INT32) (IU-REF18916 ':INT32)
                              (ABSTOL-REF18917 ':DOUBLE) (M-REF18918 ':INT32)
                              (LDZ-REF18921 ':INT32) (LWORK-REF18923 ':INT32)
                              (INFO-REF18927 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18907 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF18908 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF18910 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF18912 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF18913 :DOUBLE) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF18914 :DOUBLE) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF18915 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF18916 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF18917 :DOUBLE) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18918 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF18921 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18923 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18927 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF18909 AB) (Q-REF18911 Q)
                                            (W-REF18919 W) (Z-REF18920 Z)
                                            (WORK-REF18922 WORK)
                                            (RWORK-REF18924 RWORK)
                                            (IWORK-REF18925 IWORK)
                                            (IFAIL-REF18926 IFAIL))
      (%%ZHBEVX_2STAGE JOBZ RANGE UPLO N-REF18907 KD-REF18908 AB-REF18909
                       LDAB-REF18910 Q-REF18911 LDQ-REF18912 VL-REF18913
                       VU-REF18914 IL-REF18915 IU-REF18916 ABSTOL-REF18917
                       M-REF18918 W-REF18919 Z-REF18920 LDZ-REF18921
                       WORK-REF18922 LWORK-REF18923 RWORK-REF18924
                       IWORK-REF18925 IFAIL-REF18926 INFO-REF18927))))

(CFFI:DEFCFUN ("zhbgst_" %%ZHBGST :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (VECT :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (KA :POINTER)
  (KB :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (BB :POINTER)
  (LDBB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHBGST
                   (VECT UPLO N KA KB AB LDAB BB LDBB X LDX WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHBGST)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING VECT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        BB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDBB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18930 ':INT32) (KA-REF18931 ':INT32)
                              (KB-REF18932 ':INT32) (LDAB-REF18934 ':INT32)
                              (LDBB-REF18936 ':INT32) (LDX-REF18938 ':INT32)
                              (INFO-REF18941 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18930 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KA-REF18931 :INT32) KA)
    (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF18932 :INT32) KB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF18934 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDBB-REF18936 :INT32) LDBB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF18938 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18941 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF18933 AB) (BB-REF18935 BB)
                                            (X-REF18937 X) (WORK-REF18939 WORK)
                                            (RWORK-REF18940 RWORK))
      (%%ZHBGST VECT UPLO N-REF18930 KA-REF18931 KB-REF18932 AB-REF18933
                LDAB-REF18934 BB-REF18935 LDBB-REF18936 X-REF18937 LDX-REF18938
                WORK-REF18939 RWORK-REF18940 INFO-REF18941))))

(CFFI:DEFCFUN ("zhbgv_" %%ZHBGV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (KA :POINTER)
  (KB :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (BB :POINTER)
  (LDBB :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHBGV
                   (JOBZ UPLO N KA KB AB LDAB BB LDBB W Z LDZ WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHBGV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        BB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDBB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18944 ':INT32) (KA-REF18945 ':INT32)
                              (KB-REF18946 ':INT32) (LDAB-REF18948 ':INT32)
                              (LDBB-REF18950 ':INT32) (LDZ-REF18953 ':INT32)
                              (INFO-REF18956 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18944 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KA-REF18945 :INT32) KA)
    (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF18946 :INT32) KB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF18948 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDBB-REF18950 :INT32) LDBB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF18953 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18956 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF18947 AB) (BB-REF18949 BB)
                                            (W-REF18951 W) (Z-REF18952 Z)
                                            (WORK-REF18954 WORK)
                                            (RWORK-REF18955 RWORK))
      (%%ZHBGV JOBZ UPLO N-REF18944 KA-REF18945 KB-REF18946 AB-REF18947
               LDAB-REF18948 BB-REF18949 LDBB-REF18950 W-REF18951 Z-REF18952
               LDZ-REF18953 WORK-REF18954 RWORK-REF18955 INFO-REF18956))))

(CFFI:DEFCFUN ("zhbgvd_" %%ZHBGVD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (KA :POINTER)
  (KB :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (BB :POINTER)
  (LDBB :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (LRWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHBGVD
                   (JOBZ UPLO N KA KB AB LDAB BB LDBB W Z LDZ WORK LWORK RWORK
                    LRWORK IWORK LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHBGVD)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        BB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDBB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LRWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18959 ':INT32) (KA-REF18960 ':INT32)
                              (KB-REF18961 ':INT32) (LDAB-REF18963 ':INT32)
                              (LDBB-REF18965 ':INT32) (LDZ-REF18968 ':INT32)
                              (LWORK-REF18970 ':INT32)
                              (LRWORK-REF18972 ':INT32)
                              (LIWORK-REF18974 ':INT32) (INFO-REF18975 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18959 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KA-REF18960 :INT32) KA)
    (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF18961 :INT32) KB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF18963 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDBB-REF18965 :INT32) LDBB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF18968 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18970 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF18972 :INT32) LRWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF18974 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18975 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF18962 AB) (BB-REF18964 BB)
                                            (W-REF18966 W) (Z-REF18967 Z)
                                            (WORK-REF18969 WORK)
                                            (RWORK-REF18971 RWORK)
                                            (IWORK-REF18973 IWORK))
      (%%ZHBGVD JOBZ UPLO N-REF18959 KA-REF18960 KB-REF18961 AB-REF18962
                LDAB-REF18963 BB-REF18964 LDBB-REF18965 W-REF18966 Z-REF18967
                LDZ-REF18968 WORK-REF18969 LWORK-REF18970 RWORK-REF18971
                LRWORK-REF18972 IWORK-REF18973 LIWORK-REF18974 INFO-REF18975))))

(CFFI:DEFCFUN ("zhbgvx_" %%ZHBGVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (RANGE :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (KA :POINTER)
  (KB :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (BB :POINTER)
  (LDBB :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (IL :POINTER)
  (IU :POINTER)
  (ABSTOL :POINTER)
  (M :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (IWORK :POINTER)
  (IFAIL :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHBGVX
                   (JOBZ RANGE UPLO N KA KB AB LDAB BB LDBB Q LDQ VL VU IL IU
                    ABSTOL M W Z LDZ WORK RWORK IWORK IFAIL INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHBGVX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        BB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDBB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ABSTOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IFAIL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18979 ':INT32) (KA-REF18980 ':INT32)
                              (KB-REF18981 ':INT32) (LDAB-REF18983 ':INT32)
                              (LDBB-REF18985 ':INT32) (LDQ-REF18987 ':INT32)
                              (VL-REF18988 ':DOUBLE) (VU-REF18989 ':DOUBLE)
                              (IL-REF18990 ':INT32) (IU-REF18991 ':INT32)
                              (ABSTOL-REF18992 ':DOUBLE) (M-REF18993 ':INT32)
                              (LDZ-REF18996 ':INT32) (INFO-REF19001 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18979 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KA-REF18980 :INT32) KA)
    (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF18981 :INT32) KB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF18983 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDBB-REF18985 :INT32) LDBB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF18987 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF18988 :DOUBLE) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF18989 :DOUBLE) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF18990 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF18991 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF18992 :DOUBLE) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18993 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF18996 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19001 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF18982 AB) (BB-REF18984 BB)
                                            (Q-REF18986 Q) (W-REF18994 W)
                                            (Z-REF18995 Z) (WORK-REF18997 WORK)
                                            (RWORK-REF18998 RWORK)
                                            (IWORK-REF18999 IWORK)
                                            (IFAIL-REF19000 IFAIL))
      (%%ZHBGVX JOBZ RANGE UPLO N-REF18979 KA-REF18980 KB-REF18981 AB-REF18982
                LDAB-REF18983 BB-REF18984 LDBB-REF18985 Q-REF18986 LDQ-REF18987
                VL-REF18988 VU-REF18989 IL-REF18990 IU-REF18991 ABSTOL-REF18992
                M-REF18993 W-REF18994 Z-REF18995 LDZ-REF18996 WORK-REF18997
                RWORK-REF18998 IWORK-REF18999 IFAIL-REF19000 INFO-REF19001))))

(CFFI:DEFCFUN ("zhbtrd_" %%ZHBTRD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (VECT :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (D :POINTER)
  (E :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHBTRD (VECT UPLO N KD AB LDAB D E Q LDQ WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHBTRD)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING VECT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19004 ':INT32) (KD-REF19005 ':INT32)
                              (LDAB-REF19007 ':INT32) (LDQ-REF19011 ':INT32)
                              (INFO-REF19013 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19004 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF19005 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF19007 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF19011 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19013 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF19006 AB) (D-REF19008 D)
                                            (E-REF19009 E) (Q-REF19010 Q)
                                            (WORK-REF19012 WORK))
      (%%ZHBTRD VECT UPLO N-REF19004 KD-REF19005 AB-REF19006 LDAB-REF19007
                D-REF19008 E-REF19009 Q-REF19010 LDQ-REF19011 WORK-REF19012
                INFO-REF19013))))

(CFFI:DEFCFUN ("zhecon_" %%ZHECON :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (ANORM :POINTER)
  (RCOND :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHECON (UPLO N A LDA IPIV ANORM RCOND WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHECON)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ANORM)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19015 ':INT32) (LDA-REF19017 ':INT32)
                              (ANORM-REF19019 ':DOUBLE)
                              (RCOND-REF19020 ':DOUBLE) (INFO-REF19022 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19015 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19017 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF19019 :DOUBLE) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF19020 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19022 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19016 A) (IPIV-REF19018 IPIV)
                                            (WORK-REF19021 WORK))
      (%%ZHECON UPLO N-REF19015 A-REF19016 LDA-REF19017 IPIV-REF19018
                ANORM-REF19019 RCOND-REF19020 WORK-REF19021 INFO-REF19022))))

(CFFI:DEFCFUN ("zhecon_3_" %%ZHECON_3 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (E :POINTER)
  (IPIV :POINTER)
  (ANORM :POINTER)
  (RCOND :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHECON_3 (UPLO N A LDA E IPIV ANORM RCOND WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHECON_3)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ANORM)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19024 ':INT32) (LDA-REF19026 ':INT32)
                              (ANORM-REF19029 ':DOUBLE)
                              (RCOND-REF19030 ':DOUBLE) (INFO-REF19032 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19024 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19026 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF19029 :DOUBLE) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF19030 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19032 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19025 A) (E-REF19027 E)
                                            (IPIV-REF19028 IPIV)
                                            (WORK-REF19031 WORK))
      (%%ZHECON_3 UPLO N-REF19024 A-REF19025 LDA-REF19026 E-REF19027
                  IPIV-REF19028 ANORM-REF19029 RCOND-REF19030 WORK-REF19031
                  INFO-REF19032))))

(CFFI:DEFCFUN ("zhecon_rook_" %%ZHECON_ROOK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (ANORM :POINTER)
  (RCOND :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHECON_ROOK (UPLO N A LDA IPIV ANORM RCOND WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHECON_ROOK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ANORM)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19034 ':INT32) (LDA-REF19036 ':INT32)
                              (ANORM-REF19038 ':DOUBLE)
                              (RCOND-REF19039 ':DOUBLE) (INFO-REF19041 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19034 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19036 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF19038 :DOUBLE) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF19039 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19041 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19035 A) (IPIV-REF19037 IPIV)
                                            (WORK-REF19040 WORK))
      (%%ZHECON_ROOK UPLO N-REF19034 A-REF19035 LDA-REF19036 IPIV-REF19037
                     ANORM-REF19038 RCOND-REF19039 WORK-REF19040
                     INFO-REF19041))))

(CFFI:DEFCFUN ("zheequb_" %%ZHEEQUB :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (S :POINTER)
  (SCOND :POINTER)
  (AMAX :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHEEQUB (UPLO N A LDA S SCOND AMAX WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHEEQUB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCOND)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT AMAX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19043 ':INT32) (LDA-REF19045 ':INT32)
                              (SCOND-REF19047 ':DOUBLE)
                              (AMAX-REF19048 ':DOUBLE) (INFO-REF19050 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19043 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19045 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF19047 :DOUBLE) SCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF19048 :DOUBLE) AMAX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19050 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19044 A) (S-REF19046 S)
                                            (WORK-REF19049 WORK))
      (%%ZHEEQUB UPLO N-REF19043 A-REF19044 LDA-REF19045 S-REF19046
                 SCOND-REF19047 AMAX-REF19048 WORK-REF19049 INFO-REF19050))))

(CFFI:DEFCFUN ("zheev_" %%ZHEEV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (W :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHEEV (JOBZ UPLO N A LDA W WORK LWORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHEEV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19053 ':INT32) (LDA-REF19055 ':INT32)
                              (LWORK-REF19058 ':INT32) (INFO-REF19060 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19053 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19055 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19058 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19060 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19054 A) (W-REF19056 W)
                                            (WORK-REF19057 WORK)
                                            (RWORK-REF19059 RWORK))
      (%%ZHEEV JOBZ UPLO N-REF19053 A-REF19054 LDA-REF19055 W-REF19056
               WORK-REF19057 LWORK-REF19058 RWORK-REF19059 INFO-REF19060))))

(CFFI:DEFCFUN ("zheev_2stage_" %%ZHEEV_2STAGE :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (W :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHEEV_2STAGE (JOBZ UPLO N A LDA W WORK LWORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHEEV_2STAGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19063 ':INT32) (LDA-REF19065 ':INT32)
                              (LWORK-REF19068 ':INT32) (INFO-REF19070 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19063 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19065 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19068 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19070 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19064 A) (W-REF19066 W)
                                            (WORK-REF19067 WORK)
                                            (RWORK-REF19069 RWORK))
      (%%ZHEEV_2STAGE JOBZ UPLO N-REF19063 A-REF19064 LDA-REF19065 W-REF19066
                      WORK-REF19067 LWORK-REF19068 RWORK-REF19069
                      INFO-REF19070))))

(CFFI:DEFCFUN ("zheevd_" %%ZHEEVD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (W :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (LRWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHEEVD
                   (JOBZ UPLO N A LDA W WORK LWORK RWORK LRWORK IWORK LIWORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHEEVD)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LRWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19073 ':INT32) (LDA-REF19075 ':INT32)
                              (LWORK-REF19078 ':INT32)
                              (LRWORK-REF19080 ':INT32)
                              (LIWORK-REF19082 ':INT32) (INFO-REF19083 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19073 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19075 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19078 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF19080 :INT32) LRWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF19082 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19083 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19074 A) (W-REF19076 W)
                                            (WORK-REF19077 WORK)
                                            (RWORK-REF19079 RWORK)
                                            (IWORK-REF19081 IWORK))
      (%%ZHEEVD JOBZ UPLO N-REF19073 A-REF19074 LDA-REF19075 W-REF19076
                WORK-REF19077 LWORK-REF19078 RWORK-REF19079 LRWORK-REF19080
                IWORK-REF19081 LIWORK-REF19082 INFO-REF19083))))

(CFFI:DEFCFUN ("zheevd_2stage_" %%ZHEEVD_2STAGE :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (W :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (LRWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHEEVD_2STAGE
                   (JOBZ UPLO N A LDA W WORK LWORK RWORK LRWORK IWORK LIWORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHEEVD_2STAGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LRWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19086 ':INT32) (LDA-REF19088 ':INT32)
                              (LWORK-REF19091 ':INT32)
                              (LRWORK-REF19093 ':INT32)
                              (LIWORK-REF19095 ':INT32) (INFO-REF19096 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19086 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19088 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19091 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF19093 :INT32) LRWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF19095 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19096 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19087 A) (W-REF19089 W)
                                            (WORK-REF19090 WORK)
                                            (RWORK-REF19092 RWORK)
                                            (IWORK-REF19094 IWORK))
      (%%ZHEEVD_2STAGE JOBZ UPLO N-REF19086 A-REF19087 LDA-REF19088 W-REF19089
                       WORK-REF19090 LWORK-REF19091 RWORK-REF19092
                       LRWORK-REF19093 IWORK-REF19094 LIWORK-REF19095
                       INFO-REF19096))))

(CFFI:DEFCFUN ("zheevr_" %%ZHEEVR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (RANGE :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (IL :POINTER)
  (IU :POINTER)
  (ABSTOL :POINTER)
  (M :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (ISUPPZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (LRWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHEEVR
                   (JOBZ RANGE UPLO N A LDA VL VU IL IU ABSTOL M W Z LDZ ISUPPZ
                    WORK LWORK RWORK LRWORK IWORK LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHEEVR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ABSTOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        ISUPPZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LRWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19100 ':INT32) (LDA-REF19102 ':INT32)
                              (VL-REF19103 ':DOUBLE) (VU-REF19104 ':DOUBLE)
                              (IL-REF19105 ':INT32) (IU-REF19106 ':INT32)
                              (ABSTOL-REF19107 ':DOUBLE) (M-REF19108 ':INT32)
                              (LDZ-REF19111 ':INT32) (LWORK-REF19114 ':INT32)
                              (LRWORK-REF19116 ':INT32)
                              (LIWORK-REF19118 ':INT32) (INFO-REF19119 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19100 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19102 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF19103 :DOUBLE) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF19104 :DOUBLE) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF19105 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF19106 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF19107 :DOUBLE) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF19108 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF19111 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19114 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF19116 :INT32) LRWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF19118 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19119 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19101 A) (W-REF19109 W)
                                            (Z-REF19110 Z)
                                            (ISUPPZ-REF19112 ISUPPZ)
                                            (WORK-REF19113 WORK)
                                            (RWORK-REF19115 RWORK)
                                            (IWORK-REF19117 IWORK))
      (%%ZHEEVR JOBZ RANGE UPLO N-REF19100 A-REF19101 LDA-REF19102 VL-REF19103
                VU-REF19104 IL-REF19105 IU-REF19106 ABSTOL-REF19107 M-REF19108
                W-REF19109 Z-REF19110 LDZ-REF19111 ISUPPZ-REF19112
                WORK-REF19113 LWORK-REF19114 RWORK-REF19115 LRWORK-REF19116
                IWORK-REF19117 LIWORK-REF19118 INFO-REF19119))))

(CFFI:DEFCFUN ("zheevr_2stage_" %%ZHEEVR_2STAGE :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (RANGE :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (IL :POINTER)
  (IU :POINTER)
  (ABSTOL :POINTER)
  (M :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (ISUPPZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (LRWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHEEVR_2STAGE
                   (JOBZ RANGE UPLO N A LDA VL VU IL IU ABSTOL M W Z LDZ ISUPPZ
                    WORK LWORK RWORK LRWORK IWORK LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHEEVR_2STAGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ABSTOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        ISUPPZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LRWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19123 ':INT32) (LDA-REF19125 ':INT32)
                              (VL-REF19126 ':DOUBLE) (VU-REF19127 ':DOUBLE)
                              (IL-REF19128 ':INT32) (IU-REF19129 ':INT32)
                              (ABSTOL-REF19130 ':DOUBLE) (M-REF19131 ':INT32)
                              (LDZ-REF19134 ':INT32) (LWORK-REF19137 ':INT32)
                              (LRWORK-REF19139 ':INT32)
                              (LIWORK-REF19141 ':INT32) (INFO-REF19142 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19123 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19125 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF19126 :DOUBLE) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF19127 :DOUBLE) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF19128 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF19129 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF19130 :DOUBLE) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF19131 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF19134 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19137 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF19139 :INT32) LRWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF19141 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19142 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19124 A) (W-REF19132 W)
                                            (Z-REF19133 Z)
                                            (ISUPPZ-REF19135 ISUPPZ)
                                            (WORK-REF19136 WORK)
                                            (RWORK-REF19138 RWORK)
                                            (IWORK-REF19140 IWORK))
      (%%ZHEEVR_2STAGE JOBZ RANGE UPLO N-REF19123 A-REF19124 LDA-REF19125
                       VL-REF19126 VU-REF19127 IL-REF19128 IU-REF19129
                       ABSTOL-REF19130 M-REF19131 W-REF19132 Z-REF19133
                       LDZ-REF19134 ISUPPZ-REF19135 WORK-REF19136
                       LWORK-REF19137 RWORK-REF19138 LRWORK-REF19139
                       IWORK-REF19140 LIWORK-REF19141 INFO-REF19142))))

(CFFI:DEFCFUN ("zheevx_" %%ZHEEVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (RANGE :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (IL :POINTER)
  (IU :POINTER)
  (ABSTOL :POINTER)
  (M :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (IWORK :POINTER)
  (IFAIL :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHEEVX
                   (JOBZ RANGE UPLO N A LDA VL VU IL IU ABSTOL M W Z LDZ WORK
                    LWORK RWORK IWORK IFAIL INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHEEVX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ABSTOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IFAIL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19146 ':INT32) (LDA-REF19148 ':INT32)
                              (VL-REF19149 ':DOUBLE) (VU-REF19150 ':DOUBLE)
                              (IL-REF19151 ':INT32) (IU-REF19152 ':INT32)
                              (ABSTOL-REF19153 ':DOUBLE) (M-REF19154 ':INT32)
                              (LDZ-REF19157 ':INT32) (LWORK-REF19159 ':INT32)
                              (INFO-REF19163 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19146 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19148 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF19149 :DOUBLE) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF19150 :DOUBLE) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF19151 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF19152 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF19153 :DOUBLE) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF19154 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF19157 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19159 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19163 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19147 A) (W-REF19155 W)
                                            (Z-REF19156 Z) (WORK-REF19158 WORK)
                                            (RWORK-REF19160 RWORK)
                                            (IWORK-REF19161 IWORK)
                                            (IFAIL-REF19162 IFAIL))
      (%%ZHEEVX JOBZ RANGE UPLO N-REF19146 A-REF19147 LDA-REF19148 VL-REF19149
                VU-REF19150 IL-REF19151 IU-REF19152 ABSTOL-REF19153 M-REF19154
                W-REF19155 Z-REF19156 LDZ-REF19157 WORK-REF19158 LWORK-REF19159
                RWORK-REF19160 IWORK-REF19161 IFAIL-REF19162 INFO-REF19163))))

(CFFI:DEFCFUN ("zheevx_2stage_" %%ZHEEVX_2STAGE :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (RANGE :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (IL :POINTER)
  (IU :POINTER)
  (ABSTOL :POINTER)
  (M :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (IWORK :POINTER)
  (IFAIL :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHEEVX_2STAGE
                   (JOBZ RANGE UPLO N A LDA VL VU IL IU ABSTOL M W Z LDZ WORK
                    LWORK RWORK IWORK IFAIL INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHEEVX_2STAGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ABSTOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IFAIL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19167 ':INT32) (LDA-REF19169 ':INT32)
                              (VL-REF19170 ':DOUBLE) (VU-REF19171 ':DOUBLE)
                              (IL-REF19172 ':INT32) (IU-REF19173 ':INT32)
                              (ABSTOL-REF19174 ':DOUBLE) (M-REF19175 ':INT32)
                              (LDZ-REF19178 ':INT32) (LWORK-REF19180 ':INT32)
                              (INFO-REF19184 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19167 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19169 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF19170 :DOUBLE) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF19171 :DOUBLE) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF19172 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF19173 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF19174 :DOUBLE) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF19175 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF19178 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19180 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19184 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19168 A) (W-REF19176 W)
                                            (Z-REF19177 Z) (WORK-REF19179 WORK)
                                            (RWORK-REF19181 RWORK)
                                            (IWORK-REF19182 IWORK)
                                            (IFAIL-REF19183 IFAIL))
      (%%ZHEEVX_2STAGE JOBZ RANGE UPLO N-REF19167 A-REF19168 LDA-REF19169
                       VL-REF19170 VU-REF19171 IL-REF19172 IU-REF19173
                       ABSTOL-REF19174 M-REF19175 W-REF19176 Z-REF19177
                       LDZ-REF19178 WORK-REF19179 LWORK-REF19180 RWORK-REF19181
                       IWORK-REF19182 IFAIL-REF19183 INFO-REF19184))))

(CFFI:DEFCFUN ("zhegs2_" %%ZHEGS2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (ITYPE :POINTER)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHEGS2 (ITYPE UPLO N A LDA B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHEGS2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITYPE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF19185 ':INT32) (N-REF19187 ':INT32)
                              (LDA-REF19189 ':INT32) (LDB-REF19191 ':INT32)
                              (INFO-REF19192 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF19185 :INT32) ITYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19187 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19189 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF19191 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19192 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19188 A) (B-REF19190 B))
      (%%ZHEGS2 ITYPE-REF19185 UPLO N-REF19187 A-REF19188 LDA-REF19189
                B-REF19190 LDB-REF19191 INFO-REF19192))))

(CFFI:DEFCFUN ("zhegst_" %%ZHEGST :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (ITYPE :POINTER)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHEGST (ITYPE UPLO N A LDA B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHEGST)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITYPE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF19193 ':INT32) (N-REF19195 ':INT32)
                              (LDA-REF19197 ':INT32) (LDB-REF19199 ':INT32)
                              (INFO-REF19200 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF19193 :INT32) ITYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19195 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19197 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF19199 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19200 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19196 A) (B-REF19198 B))
      (%%ZHEGST ITYPE-REF19193 UPLO N-REF19195 A-REF19196 LDA-REF19197
                B-REF19198 LDB-REF19199 INFO-REF19200))))

(CFFI:DEFCFUN ("zhegv_" %%ZHEGV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (ITYPE :POINTER)
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (W :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHEGV
                   (ITYPE JOBZ UPLO N A LDA B LDB W WORK LWORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHEGV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITYPE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF19201 ':INT32) (N-REF19204 ':INT32)
                              (LDA-REF19206 ':INT32) (LDB-REF19208 ':INT32)
                              (LWORK-REF19211 ':INT32) (INFO-REF19213 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF19201 :INT32) ITYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19204 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19206 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF19208 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19211 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19213 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19205 A) (B-REF19207 B)
                                            (W-REF19209 W) (WORK-REF19210 WORK)
                                            (RWORK-REF19212 RWORK))
      (%%ZHEGV ITYPE-REF19201 JOBZ UPLO N-REF19204 A-REF19205 LDA-REF19206
               B-REF19207 LDB-REF19208 W-REF19209 WORK-REF19210 LWORK-REF19211
               RWORK-REF19212 INFO-REF19213))))

(CFFI:DEFCFUN ("zhegv_2stage_" %%ZHEGV_2STAGE :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (ITYPE :POINTER)
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (W :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHEGV_2STAGE
                   (ITYPE JOBZ UPLO N A LDA B LDB W WORK LWORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHEGV_2STAGE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITYPE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF19214 ':INT32) (N-REF19217 ':INT32)
                              (LDA-REF19219 ':INT32) (LDB-REF19221 ':INT32)
                              (LWORK-REF19224 ':INT32) (INFO-REF19226 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF19214 :INT32) ITYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19217 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19219 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF19221 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19224 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19226 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19218 A) (B-REF19220 B)
                                            (W-REF19222 W) (WORK-REF19223 WORK)
                                            (RWORK-REF19225 RWORK))
      (%%ZHEGV_2STAGE ITYPE-REF19214 JOBZ UPLO N-REF19217 A-REF19218
                      LDA-REF19219 B-REF19220 LDB-REF19221 W-REF19222
                      WORK-REF19223 LWORK-REF19224 RWORK-REF19225
                      INFO-REF19226))))

(CFFI:DEFCFUN ("zhegvd_" %%ZHEGVD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (ITYPE :POINTER)
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (W :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (LRWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHEGVD
                   (ITYPE JOBZ UPLO N A LDA B LDB W WORK LWORK RWORK LRWORK
                    IWORK LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHEGVD)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITYPE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LRWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF19227 ':INT32) (N-REF19230 ':INT32)
                              (LDA-REF19232 ':INT32) (LDB-REF19234 ':INT32)
                              (LWORK-REF19237 ':INT32)
                              (LRWORK-REF19239 ':INT32)
                              (LIWORK-REF19241 ':INT32) (INFO-REF19242 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF19227 :INT32) ITYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19230 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19232 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF19234 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19237 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF19239 :INT32) LRWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF19241 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19242 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19231 A) (B-REF19233 B)
                                            (W-REF19235 W) (WORK-REF19236 WORK)
                                            (RWORK-REF19238 RWORK)
                                            (IWORK-REF19240 IWORK))
      (%%ZHEGVD ITYPE-REF19227 JOBZ UPLO N-REF19230 A-REF19231 LDA-REF19232
                B-REF19233 LDB-REF19234 W-REF19235 WORK-REF19236 LWORK-REF19237
                RWORK-REF19238 LRWORK-REF19239 IWORK-REF19240 LIWORK-REF19241
                INFO-REF19242))))

(CFFI:DEFCFUN ("zhegvx_" %%ZHEGVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (ITYPE :POINTER)
  (JOBZ :STRING)
  (RANGE :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (IL :POINTER)
  (IU :POINTER)
  (ABSTOL :POINTER)
  (M :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (IWORK :POINTER)
  (IFAIL :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHEGVX
                   (ITYPE JOBZ RANGE UPLO N A LDA B LDB VL VU IL IU ABSTOL M W
                    Z LDZ WORK LWORK RWORK IWORK IFAIL INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHEGVX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITYPE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ABSTOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IFAIL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF19243 ':INT32) (N-REF19247 ':INT32)
                              (LDA-REF19249 ':INT32) (LDB-REF19251 ':INT32)
                              (VL-REF19252 ':DOUBLE) (VU-REF19253 ':DOUBLE)
                              (IL-REF19254 ':INT32) (IU-REF19255 ':INT32)
                              (ABSTOL-REF19256 ':DOUBLE) (M-REF19257 ':INT32)
                              (LDZ-REF19260 ':INT32) (LWORK-REF19262 ':INT32)
                              (INFO-REF19266 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF19243 :INT32) ITYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19247 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19249 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF19251 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF19252 :DOUBLE) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF19253 :DOUBLE) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF19254 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF19255 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF19256 :DOUBLE) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF19257 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF19260 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19262 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19266 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19248 A) (B-REF19250 B)
                                            (W-REF19258 W) (Z-REF19259 Z)
                                            (WORK-REF19261 WORK)
                                            (RWORK-REF19263 RWORK)
                                            (IWORK-REF19264 IWORK)
                                            (IFAIL-REF19265 IFAIL))
      (%%ZHEGVX ITYPE-REF19243 JOBZ RANGE UPLO N-REF19247 A-REF19248
                LDA-REF19249 B-REF19250 LDB-REF19251 VL-REF19252 VU-REF19253
                IL-REF19254 IU-REF19255 ABSTOL-REF19256 M-REF19257 W-REF19258
                Z-REF19259 LDZ-REF19260 WORK-REF19261 LWORK-REF19262
                RWORK-REF19263 IWORK-REF19264 IFAIL-REF19265 INFO-REF19266))))

(CFFI:DEFCFUN ("zherfs_" %%ZHERFS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHERFS
                   (UPLO N NRHS A LDA AF LDAF IPIV B LDB X LDX FERR BERR WORK
                    RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHERFS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19268 ':INT32) (NRHS-REF19269 ':INT32)
                              (LDA-REF19271 ':INT32) (LDAF-REF19273 ':INT32)
                              (LDB-REF19276 ':INT32) (LDX-REF19278 ':INT32)
                              (INFO-REF19283 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19268 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF19269 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19271 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF19273 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF19276 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF19278 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19283 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19270 A) (AF-REF19272 AF)
                                            (IPIV-REF19274 IPIV) (B-REF19275 B)
                                            (X-REF19277 X) (FERR-REF19279 FERR)
                                            (BERR-REF19280 BERR)
                                            (WORK-REF19281 WORK)
                                            (RWORK-REF19282 RWORK))
      (%%ZHERFS UPLO N-REF19268 NRHS-REF19269 A-REF19270 LDA-REF19271
                AF-REF19272 LDAF-REF19273 IPIV-REF19274 B-REF19275 LDB-REF19276
                X-REF19277 LDX-REF19278 FERR-REF19279 BERR-REF19280
                WORK-REF19281 RWORK-REF19282 INFO-REF19283))))

(CFFI:DEFCFUN ("zherfsx_" %%ZHERFSX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (EQUED :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (S :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (BERR :POINTER)
  (N_ERR_BNDS :POINTER)
  (ERR_BNDS_NORM :POINTER)
  (ERR_BNDS_COMP :POINTER)
  (NPARAMS :POINTER)
  (PARAMS :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHERFSX
                   (UPLO EQUED N NRHS A LDA AF LDAF IPIV S B LDB X LDX RCOND
                    BERR N_ERR_BNDS ERR_BNDS_NORM ERR_BNDS_COMP NPARAMS PARAMS
                    WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHERFSX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        N_ERR_BNDS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ERR_BNDS_NORM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ERR_BNDS_COMP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NPARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        PARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19286 ':INT32) (NRHS-REF19287 ':INT32)
                              (LDA-REF19289 ':INT32) (LDAF-REF19291 ':INT32)
                              (LDB-REF19295 ':INT32) (LDX-REF19297 ':INT32)
                              (RCOND-REF19298 ':DOUBLE)
                              (N_ERR_BNDS-REF19300 ':INT32)
                              (NPARAMS-REF19303 ':INT32)
                              (INFO-REF19307 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19286 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF19287 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19289 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF19291 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF19295 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF19297 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF19298 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF19300 :INT32) N_ERR_BNDS)
    (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF19303 :INT32) NPARAMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19307 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19288 A) (AF-REF19290 AF)
                                            (IPIV-REF19292 IPIV) (S-REF19293 S)
                                            (B-REF19294 B) (X-REF19296 X)
                                            (BERR-REF19299 BERR)
                                            (ERR_BNDS_NORM-REF19301
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF19302
                                             ERR_BNDS_COMP)
                                            (PARAMS-REF19304 PARAMS)
                                            (WORK-REF19305 WORK)
                                            (RWORK-REF19306 RWORK))
      (%%ZHERFSX UPLO EQUED N-REF19286 NRHS-REF19287 A-REF19288 LDA-REF19289
                 AF-REF19290 LDAF-REF19291 IPIV-REF19292 S-REF19293 B-REF19294
                 LDB-REF19295 X-REF19296 LDX-REF19297 RCOND-REF19298
                 BERR-REF19299 N_ERR_BNDS-REF19300 ERR_BNDS_NORM-REF19301
                 ERR_BNDS_COMP-REF19302 NPARAMS-REF19303 PARAMS-REF19304
                 WORK-REF19305 RWORK-REF19306 INFO-REF19307))))

(CFFI:DEFCFUN ("zhesv_" %%ZHESV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHESV (UPLO N NRHS A LDA IPIV B LDB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHESV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19309 ':INT32) (NRHS-REF19310 ':INT32)
                              (LDA-REF19312 ':INT32) (LDB-REF19315 ':INT32)
                              (LWORK-REF19317 ':INT32) (INFO-REF19318 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19309 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF19310 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19312 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF19315 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19317 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19318 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19311 A) (IPIV-REF19313 IPIV)
                                            (B-REF19314 B) (WORK-REF19316 WORK))
      (%%ZHESV UPLO N-REF19309 NRHS-REF19310 A-REF19311 LDA-REF19312
               IPIV-REF19313 B-REF19314 LDB-REF19315 WORK-REF19316
               LWORK-REF19317 INFO-REF19318))))

(CFFI:DEFCFUN ("zhesv_aa_" %%ZHESV_AA :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHESV_AA (UPLO N NRHS A LDA IPIV B LDB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHESV_AA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19320 ':INT32) (NRHS-REF19321 ':INT32)
                              (LDA-REF19323 ':INT32) (LDB-REF19326 ':INT32)
                              (LWORK-REF19328 ':INT32) (INFO-REF19329 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19320 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF19321 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19323 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF19326 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19328 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19329 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19322 A) (IPIV-REF19324 IPIV)
                                            (B-REF19325 B) (WORK-REF19327 WORK))
      (%%ZHESV_AA UPLO N-REF19320 NRHS-REF19321 A-REF19322 LDA-REF19323
                  IPIV-REF19324 B-REF19325 LDB-REF19326 WORK-REF19327
                  LWORK-REF19328 INFO-REF19329))))

(CFFI:DEFCFUN ("zhesv_aa_2stage_" %%ZHESV_AA_2STAGE :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TB :POINTER)
  (LTB :POINTER)
  (IPIV :POINTER)
  (IPIV2 :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHESV_AA_2STAGE
                   (UPLO N NRHS A LDA TB LTB IPIV IPIV2 B LDB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHESV_AA_2STAGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LTB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19331 ':INT32) (NRHS-REF19332 ':INT32)
                              (LDA-REF19334 ':INT32) (LTB-REF19336 ':INT32)
                              (LDB-REF19340 ':INT32) (LWORK-REF19342 ':INT32)
                              (INFO-REF19343 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19331 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF19332 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19334 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LTB-REF19336 :INT32) LTB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF19340 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19342 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19343 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19333 A) (TB-REF19335 TB)
                                            (IPIV-REF19337 IPIV)
                                            (IPIV2-REF19338 IPIV2)
                                            (B-REF19339 B) (WORK-REF19341 WORK))
      (%%ZHESV_AA_2STAGE UPLO N-REF19331 NRHS-REF19332 A-REF19333 LDA-REF19334
                         TB-REF19335 LTB-REF19336 IPIV-REF19337 IPIV2-REF19338
                         B-REF19339 LDB-REF19340 WORK-REF19341 LWORK-REF19342
                         INFO-REF19343))))

(CFFI:DEFCFUN ("zhesv_rk_" %%ZHESV_RK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (E :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHESV_RK (UPLO N NRHS A LDA E IPIV B LDB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHESV_RK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19345 ':INT32) (NRHS-REF19346 ':INT32)
                              (LDA-REF19348 ':INT32) (LDB-REF19352 ':INT32)
                              (LWORK-REF19354 ':INT32) (INFO-REF19355 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19345 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF19346 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19348 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF19352 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19354 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19355 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19347 A) (E-REF19349 E)
                                            (IPIV-REF19350 IPIV) (B-REF19351 B)
                                            (WORK-REF19353 WORK))
      (%%ZHESV_RK UPLO N-REF19345 NRHS-REF19346 A-REF19347 LDA-REF19348
                  E-REF19349 IPIV-REF19350 B-REF19351 LDB-REF19352
                  WORK-REF19353 LWORK-REF19354 INFO-REF19355))))

(CFFI:DEFCFUN ("zhesv_rook_" %%ZHESV_ROOK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHESV_ROOK (UPLO N NRHS A LDA IPIV B LDB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHESV_ROOK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19357 ':INT32) (NRHS-REF19358 ':INT32)
                              (LDA-REF19360 ':INT32) (LDB-REF19363 ':INT32)
                              (LWORK-REF19365 ':INT32) (INFO-REF19366 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19357 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF19358 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19360 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF19363 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19365 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19366 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19359 A) (IPIV-REF19361 IPIV)
                                            (B-REF19362 B) (WORK-REF19364 WORK))
      (%%ZHESV_ROOK UPLO N-REF19357 NRHS-REF19358 A-REF19359 LDA-REF19360
                    IPIV-REF19361 B-REF19362 LDB-REF19363 WORK-REF19364
                    LWORK-REF19365 INFO-REF19366))))

(CFFI:DEFCFUN ("zhesvx_" %%ZHESVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (FACT :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHESVX
                   (FACT UPLO N NRHS A LDA AF LDAF IPIV B LDB X LDX RCOND FERR
                    BERR WORK LWORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHESVX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19369 ':INT32) (NRHS-REF19370 ':INT32)
                              (LDA-REF19372 ':INT32) (LDAF-REF19374 ':INT32)
                              (LDB-REF19377 ':INT32) (LDX-REF19379 ':INT32)
                              (RCOND-REF19380 ':DOUBLE)
                              (LWORK-REF19384 ':INT32) (INFO-REF19386 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19369 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF19370 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19372 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF19374 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF19377 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF19379 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF19380 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19384 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19386 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19371 A) (AF-REF19373 AF)
                                            (IPIV-REF19375 IPIV) (B-REF19376 B)
                                            (X-REF19378 X) (FERR-REF19381 FERR)
                                            (BERR-REF19382 BERR)
                                            (WORK-REF19383 WORK)
                                            (RWORK-REF19385 RWORK))
      (%%ZHESVX FACT UPLO N-REF19369 NRHS-REF19370 A-REF19371 LDA-REF19372
                AF-REF19373 LDAF-REF19374 IPIV-REF19375 B-REF19376 LDB-REF19377
                X-REF19378 LDX-REF19379 RCOND-REF19380 FERR-REF19381
                BERR-REF19382 WORK-REF19383 LWORK-REF19384 RWORK-REF19385
                INFO-REF19386))))

(CFFI:DEFCFUN ("zhesvxx_" %%ZHESVXX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (FACT :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (EQUED :STRING)
  (S :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (RPVGRW :POINTER)
  (BERR :POINTER)
  (N_ERR_BNDS :POINTER)
  (ERR_BNDS_NORM :POINTER)
  (ERR_BNDS_COMP :POINTER)
  (NPARAMS :POINTER)
  (PARAMS :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHESVXX
                   (FACT UPLO N NRHS A LDA AF LDAF IPIV EQUED S B LDB X LDX
                    RCOND RPVGRW BERR N_ERR_BNDS ERR_BNDS_NORM ERR_BNDS_COMP
                    NPARAMS PARAMS WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHESVXX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RPVGRW)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        N_ERR_BNDS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ERR_BNDS_NORM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ERR_BNDS_COMP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NPARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        PARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19389 ':INT32) (NRHS-REF19390 ':INT32)
                              (LDA-REF19392 ':INT32) (LDAF-REF19394 ':INT32)
                              (LDB-REF19399 ':INT32) (LDX-REF19401 ':INT32)
                              (RCOND-REF19402 ':DOUBLE)
                              (RPVGRW-REF19403 ':DOUBLE)
                              (N_ERR_BNDS-REF19405 ':INT32)
                              (NPARAMS-REF19408 ':INT32)
                              (INFO-REF19412 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19389 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF19390 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19392 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF19394 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF19399 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF19401 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF19402 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF RPVGRW-REF19403 :DOUBLE) RPVGRW)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF19405 :INT32) N_ERR_BNDS)
    (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF19408 :INT32) NPARAMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19412 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19391 A) (AF-REF19393 AF)
                                            (IPIV-REF19395 IPIV) (S-REF19397 S)
                                            (B-REF19398 B) (X-REF19400 X)
                                            (BERR-REF19404 BERR)
                                            (ERR_BNDS_NORM-REF19406
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF19407
                                             ERR_BNDS_COMP)
                                            (PARAMS-REF19409 PARAMS)
                                            (WORK-REF19410 WORK)
                                            (RWORK-REF19411 RWORK))
      (%%ZHESVXX FACT UPLO N-REF19389 NRHS-REF19390 A-REF19391 LDA-REF19392
                 AF-REF19393 LDAF-REF19394 IPIV-REF19395 EQUED S-REF19397
                 B-REF19398 LDB-REF19399 X-REF19400 LDX-REF19401 RCOND-REF19402
                 RPVGRW-REF19403 BERR-REF19404 N_ERR_BNDS-REF19405
                 ERR_BNDS_NORM-REF19406 ERR_BNDS_COMP-REF19407 NPARAMS-REF19408
                 PARAMS-REF19409 WORK-REF19410 RWORK-REF19411 INFO-REF19412))))

(CFFI:DEFCFUN ("zheswapr_" %%ZHESWAPR :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (I1 :POINTER)
  (I2 :POINTER))

(COMMON-LISP:DEFUN %ZHESWAPR (UPLO N A LDA I1 I2)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHESWAPR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) I1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) I2))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19414 ':INT32) (LDA-REF19416 ':INT32)
                              (I1-REF19417 ':INT32) (I2-REF19418 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19414 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19416 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF I1-REF19417 :INT32) I1)
    (COMMON-LISP:SETF (CFFI:MEM-REF I2-REF19418 :INT32) I2)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19415 A))
      (%%ZHESWAPR UPLO N-REF19414 A-REF19415 LDA-REF19416 I1-REF19417
                  I2-REF19418))))

(CFFI:DEFCFUN ("zhetd2_" %%ZHETD2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (D :POINTER)
  (E :POINTER)
  (TAU :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHETD2 (UPLO N A LDA D E TAU INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHETD2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19420 ':INT32) (LDA-REF19422 ':INT32)
                              (INFO-REF19426 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19420 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19422 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19426 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19421 A) (D-REF19423 D)
                                            (E-REF19424 E) (TAU-REF19425 TAU))
      (%%ZHETD2 UPLO N-REF19420 A-REF19421 LDA-REF19422 D-REF19423 E-REF19424
                TAU-REF19425 INFO-REF19426))))

(CFFI:DEFCFUN ("zhetf2_" %%ZHETF2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHETF2 (UPLO N A LDA IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHETF2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19428 ':INT32) (LDA-REF19430 ':INT32)
                              (INFO-REF19432 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19428 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19430 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19432 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19429 A) (IPIV-REF19431 IPIV))
      (%%ZHETF2 UPLO N-REF19428 A-REF19429 LDA-REF19430 IPIV-REF19431
                INFO-REF19432))))

(CFFI:DEFCFUN ("zhetf2_rk_" %%ZHETF2_RK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (E :POINTER)
  (IPIV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHETF2_RK (UPLO N A LDA E IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHETF2_RK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19434 ':INT32) (LDA-REF19436 ':INT32)
                              (INFO-REF19439 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19434 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19436 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19439 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19435 A) (E-REF19437 E)
                                            (IPIV-REF19438 IPIV))
      (%%ZHETF2_RK UPLO N-REF19434 A-REF19435 LDA-REF19436 E-REF19437
                   IPIV-REF19438 INFO-REF19439))))

(CFFI:DEFCFUN ("zhetf2_rook_" %%ZHETF2_ROOK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHETF2_ROOK (UPLO N A LDA IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHETF2_ROOK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19441 ':INT32) (LDA-REF19443 ':INT32)
                              (INFO-REF19445 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19441 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19443 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19445 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19442 A) (IPIV-REF19444 IPIV))
      (%%ZHETF2_ROOK UPLO N-REF19441 A-REF19442 LDA-REF19443 IPIV-REF19444
                     INFO-REF19445))))

(CFFI:DEFCFUN ("zhetrd_" %%ZHETRD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (D :POINTER)
  (E :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHETRD (UPLO N A LDA D E TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHETRD)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19447 ':INT32) (LDA-REF19449 ':INT32)
                              (LWORK-REF19454 ':INT32) (INFO-REF19455 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19447 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19449 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19454 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19455 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19448 A) (D-REF19450 D)
                                            (E-REF19451 E) (TAU-REF19452 TAU)
                                            (WORK-REF19453 WORK))
      (%%ZHETRD UPLO N-REF19447 A-REF19448 LDA-REF19449 D-REF19450 E-REF19451
                TAU-REF19452 WORK-REF19453 LWORK-REF19454 INFO-REF19455))))

(CFFI:DEFCFUN ("zhetrd_2stage_" %%ZHETRD_2STAGE :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (VECT :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (D :POINTER)
  (E :POINTER)
  (TAU :POINTER)
  (HOUS2 :POINTER)
  (LHOUS2 :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHETRD_2STAGE
                   (VECT UPLO N A LDA D E TAU HOUS2 LHOUS2 WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHETRD_2STAGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING VECT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        HOUS2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LHOUS2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19458 ':INT32) (LDA-REF19460 ':INT32)
                              (LHOUS2-REF19465 ':INT32)
                              (LWORK-REF19467 ':INT32) (INFO-REF19468 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19458 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19460 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LHOUS2-REF19465 :INT32) LHOUS2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19467 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19468 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19459 A) (D-REF19461 D)
                                            (E-REF19462 E) (TAU-REF19463 TAU)
                                            (HOUS2-REF19464 HOUS2)
                                            (WORK-REF19466 WORK))
      (%%ZHETRD_2STAGE VECT UPLO N-REF19458 A-REF19459 LDA-REF19460 D-REF19461
                       E-REF19462 TAU-REF19463 HOUS2-REF19464 LHOUS2-REF19465
                       WORK-REF19466 LWORK-REF19467 INFO-REF19468))))

(CFFI:DEFCFUN ("zhetrd_he2hb_" %%ZHETRD_HE2HB :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHETRD_HE2HB (UPLO N KD A LDA AB LDAB TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHETRD_HE2HB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19470 ':INT32) (KD-REF19471 ':INT32)
                              (LDA-REF19473 ':INT32) (LDAB-REF19475 ':INT32)
                              (LWORK-REF19478 ':INT32) (INFO-REF19479 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19470 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF19471 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19473 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF19475 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19478 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19479 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19472 A) (AB-REF19474 AB)
                                            (TAU-REF19476 TAU)
                                            (WORK-REF19477 WORK))
      (%%ZHETRD_HE2HB UPLO N-REF19470 KD-REF19471 A-REF19472 LDA-REF19473
                      AB-REF19474 LDAB-REF19475 TAU-REF19476 WORK-REF19477
                      LWORK-REF19478 INFO-REF19479))))

(CFFI:DEFCFUN ("zhetrf_" %%ZHETRF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHETRF (UPLO N A LDA IPIV WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHETRF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19481 ':INT32) (LDA-REF19483 ':INT32)
                              (LWORK-REF19486 ':INT32) (INFO-REF19487 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19481 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19483 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19486 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19487 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19482 A) (IPIV-REF19484 IPIV)
                                            (WORK-REF19485 WORK))
      (%%ZHETRF UPLO N-REF19481 A-REF19482 LDA-REF19483 IPIV-REF19484
                WORK-REF19485 LWORK-REF19486 INFO-REF19487))))

(CFFI:DEFCFUN ("zhetrf_aa_" %%ZHETRF_AA :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHETRF_AA (UPLO N A LDA IPIV WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHETRF_AA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19489 ':INT32) (LDA-REF19491 ':INT32)
                              (LWORK-REF19494 ':INT32) (INFO-REF19495 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19489 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19491 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19494 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19495 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19490 A) (IPIV-REF19492 IPIV)
                                            (WORK-REF19493 WORK))
      (%%ZHETRF_AA UPLO N-REF19489 A-REF19490 LDA-REF19491 IPIV-REF19492
                   WORK-REF19493 LWORK-REF19494 INFO-REF19495))))

(CFFI:DEFCFUN ("zhetrf_aa_2stage_" %%ZHETRF_AA_2STAGE :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TB :POINTER)
  (LTB :POINTER)
  (IPIV :POINTER)
  (IPIV2 :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHETRF_AA_2STAGE
                   (UPLO N A LDA TB LTB IPIV IPIV2 WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHETRF_AA_2STAGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LTB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19497 ':INT32) (LDA-REF19499 ':INT32)
                              (LTB-REF19501 ':INT32) (LWORK-REF19505 ':INT32)
                              (INFO-REF19506 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19497 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19499 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LTB-REF19501 :INT32) LTB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19505 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19506 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19498 A) (TB-REF19500 TB)
                                            (IPIV-REF19502 IPIV)
                                            (IPIV2-REF19503 IPIV2)
                                            (WORK-REF19504 WORK))
      (%%ZHETRF_AA_2STAGE UPLO N-REF19497 A-REF19498 LDA-REF19499 TB-REF19500
                          LTB-REF19501 IPIV-REF19502 IPIV2-REF19503
                          WORK-REF19504 LWORK-REF19505 INFO-REF19506))))

(CFFI:DEFCFUN ("zhetrf_rk_" %%ZHETRF_RK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (E :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHETRF_RK (UPLO N A LDA E IPIV WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHETRF_RK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19508 ':INT32) (LDA-REF19510 ':INT32)
                              (LWORK-REF19514 ':INT32) (INFO-REF19515 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19508 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19510 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19514 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19515 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19509 A) (E-REF19511 E)
                                            (IPIV-REF19512 IPIV)
                                            (WORK-REF19513 WORK))
      (%%ZHETRF_RK UPLO N-REF19508 A-REF19509 LDA-REF19510 E-REF19511
                   IPIV-REF19512 WORK-REF19513 LWORK-REF19514 INFO-REF19515))))

(CFFI:DEFCFUN ("zhetrf_rook_" %%ZHETRF_ROOK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHETRF_ROOK (UPLO N A LDA IPIV WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHETRF_ROOK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19517 ':INT32) (LDA-REF19519 ':INT32)
                              (LWORK-REF19522 ':INT32) (INFO-REF19523 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19517 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19519 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19522 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19523 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19518 A) (IPIV-REF19520 IPIV)
                                            (WORK-REF19521 WORK))
      (%%ZHETRF_ROOK UPLO N-REF19517 A-REF19518 LDA-REF19519 IPIV-REF19520
                     WORK-REF19521 LWORK-REF19522 INFO-REF19523))))

(CFFI:DEFCFUN ("zhetri_" %%ZHETRI :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHETRI (UPLO N A LDA IPIV WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHETRI)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19525 ':INT32) (LDA-REF19527 ':INT32)
                              (INFO-REF19530 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19525 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19527 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19530 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19526 A) (IPIV-REF19528 IPIV)
                                            (WORK-REF19529 WORK))
      (%%ZHETRI UPLO N-REF19525 A-REF19526 LDA-REF19527 IPIV-REF19528
                WORK-REF19529 INFO-REF19530))))

(CFFI:DEFCFUN ("zhetri2_" %%ZHETRI2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHETRI2 (UPLO N A LDA IPIV WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHETRI2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19532 ':INT32) (LDA-REF19534 ':INT32)
                              (LWORK-REF19537 ':INT32) (INFO-REF19538 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19532 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19534 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19537 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19538 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19533 A) (IPIV-REF19535 IPIV)
                                            (WORK-REF19536 WORK))
      (%%ZHETRI2 UPLO N-REF19532 A-REF19533 LDA-REF19534 IPIV-REF19535
                 WORK-REF19536 LWORK-REF19537 INFO-REF19538))))

(CFFI:DEFCFUN ("zhetri2x_" %%ZHETRI2X :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (NB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHETRI2X (UPLO N A LDA IPIV WORK NB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHETRI2X)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19540 ':INT32) (LDA-REF19542 ':INT32)
                              (NB-REF19545 ':INT32) (INFO-REF19546 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19540 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19542 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF19545 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19546 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19541 A) (IPIV-REF19543 IPIV)
                                            (WORK-REF19544 WORK))
      (%%ZHETRI2X UPLO N-REF19540 A-REF19541 LDA-REF19542 IPIV-REF19543
                  WORK-REF19544 NB-REF19545 INFO-REF19546))))

(CFFI:DEFCFUN ("zhetri_3_" %%ZHETRI_3 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (E :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHETRI_3 (UPLO N A LDA E IPIV WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHETRI_3)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19548 ':INT32) (LDA-REF19550 ':INT32)
                              (LWORK-REF19554 ':INT32) (INFO-REF19555 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19548 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19550 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19554 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19555 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19549 A) (E-REF19551 E)
                                            (IPIV-REF19552 IPIV)
                                            (WORK-REF19553 WORK))
      (%%ZHETRI_3 UPLO N-REF19548 A-REF19549 LDA-REF19550 E-REF19551
                  IPIV-REF19552 WORK-REF19553 LWORK-REF19554 INFO-REF19555))))

(CFFI:DEFCFUN ("zhetri_3x_" %%ZHETRI_3X :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (E :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (NB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHETRI_3X (UPLO N A LDA E IPIV WORK NB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHETRI_3X)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19557 ':INT32) (LDA-REF19559 ':INT32)
                              (NB-REF19563 ':INT32) (INFO-REF19564 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19557 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19559 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF19563 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19564 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19558 A) (E-REF19560 E)
                                            (IPIV-REF19561 IPIV)
                                            (WORK-REF19562 WORK))
      (%%ZHETRI_3X UPLO N-REF19557 A-REF19558 LDA-REF19559 E-REF19560
                   IPIV-REF19561 WORK-REF19562 NB-REF19563 INFO-REF19564))))

(CFFI:DEFCFUN ("zhetri_rook_" %%ZHETRI_ROOK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHETRI_ROOK (UPLO N A LDA IPIV WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHETRI_ROOK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19566 ':INT32) (LDA-REF19568 ':INT32)
                              (INFO-REF19571 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19566 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19568 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19571 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19567 A) (IPIV-REF19569 IPIV)
                                            (WORK-REF19570 WORK))
      (%%ZHETRI_ROOK UPLO N-REF19566 A-REF19567 LDA-REF19568 IPIV-REF19569
                     WORK-REF19570 INFO-REF19571))))

(CFFI:DEFCFUN ("zhetrs_" %%ZHETRS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHETRS (UPLO N NRHS A LDA IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHETRS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19573 ':INT32) (NRHS-REF19574 ':INT32)
                              (LDA-REF19576 ':INT32) (LDB-REF19579 ':INT32)
                              (INFO-REF19580 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19573 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF19574 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19576 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF19579 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19580 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19575 A) (IPIV-REF19577 IPIV)
                                            (B-REF19578 B))
      (%%ZHETRS UPLO N-REF19573 NRHS-REF19574 A-REF19575 LDA-REF19576
                IPIV-REF19577 B-REF19578 LDB-REF19579 INFO-REF19580))))

(CFFI:DEFCFUN ("zhetrs2_" %%ZHETRS2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHETRS2 (UPLO N NRHS A LDA IPIV B LDB WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHETRS2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19582 ':INT32) (NRHS-REF19583 ':INT32)
                              (LDA-REF19585 ':INT32) (LDB-REF19588 ':INT32)
                              (INFO-REF19590 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19582 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF19583 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19585 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF19588 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19590 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19584 A) (IPIV-REF19586 IPIV)
                                            (B-REF19587 B) (WORK-REF19589 WORK))
      (%%ZHETRS2 UPLO N-REF19582 NRHS-REF19583 A-REF19584 LDA-REF19585
                 IPIV-REF19586 B-REF19587 LDB-REF19588 WORK-REF19589
                 INFO-REF19590))))

(CFFI:DEFCFUN ("zhetrs_3_" %%ZHETRS_3 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (E :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHETRS_3 (UPLO N NRHS A LDA E IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHETRS_3)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19592 ':INT32) (NRHS-REF19593 ':INT32)
                              (LDA-REF19595 ':INT32) (LDB-REF19599 ':INT32)
                              (INFO-REF19600 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19592 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF19593 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19595 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF19599 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19600 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19594 A) (E-REF19596 E)
                                            (IPIV-REF19597 IPIV) (B-REF19598 B))
      (%%ZHETRS_3 UPLO N-REF19592 NRHS-REF19593 A-REF19594 LDA-REF19595
                  E-REF19596 IPIV-REF19597 B-REF19598 LDB-REF19599
                  INFO-REF19600))))

(CFFI:DEFCFUN ("zhetrs_aa_" %%ZHETRS_AA :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHETRS_AA (UPLO N NRHS A LDA IPIV B LDB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHETRS_AA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19602 ':INT32) (NRHS-REF19603 ':INT32)
                              (LDA-REF19605 ':INT32) (LDB-REF19608 ':INT32)
                              (LWORK-REF19610 ':INT32) (INFO-REF19611 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19602 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF19603 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19605 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF19608 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19610 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19611 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19604 A) (IPIV-REF19606 IPIV)
                                            (B-REF19607 B) (WORK-REF19609 WORK))
      (%%ZHETRS_AA UPLO N-REF19602 NRHS-REF19603 A-REF19604 LDA-REF19605
                   IPIV-REF19606 B-REF19607 LDB-REF19608 WORK-REF19609
                   LWORK-REF19610 INFO-REF19611))))

(CFFI:DEFCFUN ("zhetrs_aa_2stage_" %%ZHETRS_AA_2STAGE :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TB :POINTER)
  (LTB :POINTER)
  (IPIV :POINTER)
  (IPIV2 :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHETRS_AA_2STAGE
                   (UPLO N NRHS A LDA TB LTB IPIV IPIV2 B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHETRS_AA_2STAGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LTB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19613 ':INT32) (NRHS-REF19614 ':INT32)
                              (LDA-REF19616 ':INT32) (LTB-REF19618 ':INT32)
                              (LDB-REF19622 ':INT32) (INFO-REF19623 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19613 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF19614 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19616 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LTB-REF19618 :INT32) LTB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF19622 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19623 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19615 A) (TB-REF19617 TB)
                                            (IPIV-REF19619 IPIV)
                                            (IPIV2-REF19620 IPIV2)
                                            (B-REF19621 B))
      (%%ZHETRS_AA_2STAGE UPLO N-REF19613 NRHS-REF19614 A-REF19615 LDA-REF19616
                          TB-REF19617 LTB-REF19618 IPIV-REF19619 IPIV2-REF19620
                          B-REF19621 LDB-REF19622 INFO-REF19623))))

(CFFI:DEFCFUN ("zhetrs_rook_" %%ZHETRS_ROOK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHETRS_ROOK (UPLO N NRHS A LDA IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHETRS_ROOK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19625 ':INT32) (NRHS-REF19626 ':INT32)
                              (LDA-REF19628 ':INT32) (LDB-REF19631 ':INT32)
                              (INFO-REF19632 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19625 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF19626 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19628 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF19631 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19632 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19627 A) (IPIV-REF19629 IPIV)
                                            (B-REF19630 B))
      (%%ZHETRS_ROOK UPLO N-REF19625 NRHS-REF19626 A-REF19627 LDA-REF19628
                     IPIV-REF19629 B-REF19630 LDB-REF19631 INFO-REF19632))))

(CFFI:DEFCFUN ("zhfrk_" %%ZHFRK :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (TRANSR :STRING)
  (UPLO :STRING)
  (TRANS :STRING)
  (N :POINTER)
  (K :POINTER)
  (ALPHA :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (BETA :POINTER)
  (C :POINTER))

(COMMON-LISP:DEFUN %ZHFRK (TRANSR UPLO TRANS N K ALPHA A LDA BETA C)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHFRK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        C))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19636 ':INT32) (K-REF19637 ':INT32)
                              (ALPHA-REF19638 ':DOUBLE) (LDA-REF19640 ':INT32)
                              (BETA-REF19641 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19636 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF19637 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF19638 :DOUBLE) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19640 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF19641 :DOUBLE) BETA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19639 A) (C-REF19642 C))
      (%%ZHFRK TRANSR UPLO TRANS N-REF19636 K-REF19637 ALPHA-REF19638
               A-REF19639 LDA-REF19640 BETA-REF19641 C-REF19642))))

(CFFI:DEFCFUN ("zhgeqz_" %%ZHGEQZ :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOB :STRING)
  (COMPQ :STRING)
  (COMPZ :STRING)
  (N :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (H :POINTER)
  (LDH :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (ALPHA :POINTER)
  (BETA :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHGEQZ
                   (JOB COMPQ COMPZ N ILO IHI H LDH T LDT ALPHA BETA Q LDQ Z
                    LDZ WORK LWORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHGEQZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING COMPQ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING COMPZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        H)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19646 ':INT32) (ILO-REF19647 ':INT32)
                              (IHI-REF19648 ':INT32) (LDH-REF19650 ':INT32)
                              (LDT-REF19652 ':INT32) (LDQ-REF19656 ':INT32)
                              (LDZ-REF19658 ':INT32) (LWORK-REF19660 ':INT32)
                              (INFO-REF19662 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19646 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF19647 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF19648 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF19650 :INT32) LDH)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF19652 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF19656 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF19658 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19660 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19662 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF19649 H) (T-REF19651 T)
                                            (ALPHA-REF19653 ALPHA)
                                            (BETA-REF19654 BETA) (Q-REF19655 Q)
                                            (Z-REF19657 Z) (WORK-REF19659 WORK)
                                            (RWORK-REF19661 RWORK))
      (%%ZHGEQZ JOB COMPQ COMPZ N-REF19646 ILO-REF19647 IHI-REF19648 H-REF19649
                LDH-REF19650 T-REF19651 LDT-REF19652 ALPHA-REF19653
                BETA-REF19654 Q-REF19655 LDQ-REF19656 Z-REF19657 LDZ-REF19658
                WORK-REF19659 LWORK-REF19660 RWORK-REF19661 INFO-REF19662))))

(CFFI:DEFCFUN ("zhpcon_" %%ZHPCON :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (IPIV :POINTER)
  (ANORM :POINTER)
  (RCOND :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHPCON (UPLO N AP IPIV ANORM RCOND WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHPCON)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ANORM)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19664 ':INT32) (ANORM-REF19667 ':DOUBLE)
                              (RCOND-REF19668 ':DOUBLE) (INFO-REF19670 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19664 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF19667 :DOUBLE) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF19668 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19670 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF19665 AP)
                                            (IPIV-REF19666 IPIV)
                                            (WORK-REF19669 WORK))
      (%%ZHPCON UPLO N-REF19664 AP-REF19665 IPIV-REF19666 ANORM-REF19667
                RCOND-REF19668 WORK-REF19669 INFO-REF19670))))

(CFFI:DEFCFUN ("zhpev_" %%ZHPEV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHPEV (JOBZ UPLO N AP W Z LDZ WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHPEV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19673 ':INT32) (LDZ-REF19677 ':INT32)
                              (INFO-REF19680 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19673 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF19677 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19680 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF19674 AP) (W-REF19675 W)
                                            (Z-REF19676 Z) (WORK-REF19678 WORK)
                                            (RWORK-REF19679 RWORK))
      (%%ZHPEV JOBZ UPLO N-REF19673 AP-REF19674 W-REF19675 Z-REF19676
               LDZ-REF19677 WORK-REF19678 RWORK-REF19679 INFO-REF19680))))

(CFFI:DEFCFUN ("zhpevd_" %%ZHPEVD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (LRWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHPEVD
                   (JOBZ UPLO N AP W Z LDZ WORK LWORK RWORK LRWORK IWORK LIWORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHPEVD)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LRWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19683 ':INT32) (LDZ-REF19687 ':INT32)
                              (LWORK-REF19689 ':INT32)
                              (LRWORK-REF19691 ':INT32)
                              (LIWORK-REF19693 ':INT32) (INFO-REF19694 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19683 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF19687 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19689 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF19691 :INT32) LRWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF19693 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19694 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF19684 AP) (W-REF19685 W)
                                            (Z-REF19686 Z) (WORK-REF19688 WORK)
                                            (RWORK-REF19690 RWORK)
                                            (IWORK-REF19692 IWORK))
      (%%ZHPEVD JOBZ UPLO N-REF19683 AP-REF19684 W-REF19685 Z-REF19686
                LDZ-REF19687 WORK-REF19688 LWORK-REF19689 RWORK-REF19690
                LRWORK-REF19691 IWORK-REF19692 LIWORK-REF19693 INFO-REF19694))))

(CFFI:DEFCFUN ("zhpevx_" %%ZHPEVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (RANGE :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (IL :POINTER)
  (IU :POINTER)
  (ABSTOL :POINTER)
  (M :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (IWORK :POINTER)
  (IFAIL :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHPEVX
                   (JOBZ RANGE UPLO N AP VL VU IL IU ABSTOL M W Z LDZ WORK
                    RWORK IWORK IFAIL INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHPEVX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ABSTOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IFAIL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19698 ':INT32) (VL-REF19700 ':DOUBLE)
                              (VU-REF19701 ':DOUBLE) (IL-REF19702 ':INT32)
                              (IU-REF19703 ':INT32) (ABSTOL-REF19704 ':DOUBLE)
                              (M-REF19705 ':INT32) (LDZ-REF19708 ':INT32)
                              (INFO-REF19713 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19698 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF19700 :DOUBLE) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF19701 :DOUBLE) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF19702 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF19703 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF19704 :DOUBLE) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF19705 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF19708 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19713 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF19699 AP) (W-REF19706 W)
                                            (Z-REF19707 Z) (WORK-REF19709 WORK)
                                            (RWORK-REF19710 RWORK)
                                            (IWORK-REF19711 IWORK)
                                            (IFAIL-REF19712 IFAIL))
      (%%ZHPEVX JOBZ RANGE UPLO N-REF19698 AP-REF19699 VL-REF19700 VU-REF19701
                IL-REF19702 IU-REF19703 ABSTOL-REF19704 M-REF19705 W-REF19706
                Z-REF19707 LDZ-REF19708 WORK-REF19709 RWORK-REF19710
                IWORK-REF19711 IFAIL-REF19712 INFO-REF19713))))

(CFFI:DEFCFUN ("zhpgst_" %%ZHPGST :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (ITYPE :POINTER)
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (BP :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHPGST (ITYPE UPLO N AP BP INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHPGST)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITYPE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        BP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF19714 ':INT32) (N-REF19716 ':INT32)
                              (INFO-REF19719 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF19714 :INT32) ITYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19716 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19719 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF19717 AP) (BP-REF19718 BP))
      (%%ZHPGST ITYPE-REF19714 UPLO N-REF19716 AP-REF19717 BP-REF19718
                INFO-REF19719))))

(CFFI:DEFCFUN ("zhpgv_" %%ZHPGV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (ITYPE :POINTER)
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (BP :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHPGV (ITYPE JOBZ UPLO N AP BP W Z LDZ WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHPGV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITYPE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        BP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF19720 ':INT32) (N-REF19723 ':INT32)
                              (LDZ-REF19728 ':INT32) (INFO-REF19731 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF19720 :INT32) ITYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19723 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF19728 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19731 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF19724 AP) (BP-REF19725 BP)
                                            (W-REF19726 W) (Z-REF19727 Z)
                                            (WORK-REF19729 WORK)
                                            (RWORK-REF19730 RWORK))
      (%%ZHPGV ITYPE-REF19720 JOBZ UPLO N-REF19723 AP-REF19724 BP-REF19725
               W-REF19726 Z-REF19727 LDZ-REF19728 WORK-REF19729 RWORK-REF19730
               INFO-REF19731))))

(CFFI:DEFCFUN ("zhpgvd_" %%ZHPGVD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (ITYPE :POINTER)
  (JOBZ :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (BP :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (LRWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHPGVD
                   (ITYPE JOBZ UPLO N AP BP W Z LDZ WORK LWORK RWORK LRWORK
                    IWORK LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHPGVD)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITYPE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        BP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LRWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF19732 ':INT32) (N-REF19735 ':INT32)
                              (LDZ-REF19740 ':INT32) (LWORK-REF19742 ':INT32)
                              (LRWORK-REF19744 ':INT32)
                              (LIWORK-REF19746 ':INT32) (INFO-REF19747 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF19732 :INT32) ITYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19735 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF19740 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19742 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF19744 :INT32) LRWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF19746 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19747 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF19736 AP) (BP-REF19737 BP)
                                            (W-REF19738 W) (Z-REF19739 Z)
                                            (WORK-REF19741 WORK)
                                            (RWORK-REF19743 RWORK)
                                            (IWORK-REF19745 IWORK))
      (%%ZHPGVD ITYPE-REF19732 JOBZ UPLO N-REF19735 AP-REF19736 BP-REF19737
                W-REF19738 Z-REF19739 LDZ-REF19740 WORK-REF19741 LWORK-REF19742
                RWORK-REF19743 LRWORK-REF19744 IWORK-REF19745 LIWORK-REF19746
                INFO-REF19747))))

(CFFI:DEFCFUN ("zhpgvx_" %%ZHPGVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (ITYPE :POINTER)
  (JOBZ :STRING)
  (RANGE :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (BP :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (IL :POINTER)
  (IU :POINTER)
  (ABSTOL :POINTER)
  (M :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (IWORK :POINTER)
  (IFAIL :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHPGVX
                   (ITYPE JOBZ RANGE UPLO N AP BP VL VU IL IU ABSTOL M W Z LDZ
                    WORK RWORK IWORK IFAIL INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHPGVX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITYPE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        BP)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ABSTOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IFAIL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF19748 ':INT32) (N-REF19752 ':INT32)
                              (VL-REF19755 ':DOUBLE) (VU-REF19756 ':DOUBLE)
                              (IL-REF19757 ':INT32) (IU-REF19758 ':INT32)
                              (ABSTOL-REF19759 ':DOUBLE) (M-REF19760 ':INT32)
                              (LDZ-REF19763 ':INT32) (INFO-REF19768 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF19748 :INT32) ITYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19752 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF19755 :DOUBLE) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF19756 :DOUBLE) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF19757 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF19758 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF19759 :DOUBLE) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF19760 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF19763 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19768 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF19753 AP) (BP-REF19754 BP)
                                            (W-REF19761 W) (Z-REF19762 Z)
                                            (WORK-REF19764 WORK)
                                            (RWORK-REF19765 RWORK)
                                            (IWORK-REF19766 IWORK)
                                            (IFAIL-REF19767 IFAIL))
      (%%ZHPGVX ITYPE-REF19748 JOBZ RANGE UPLO N-REF19752 AP-REF19753
                BP-REF19754 VL-REF19755 VU-REF19756 IL-REF19757 IU-REF19758
                ABSTOL-REF19759 M-REF19760 W-REF19761 Z-REF19762 LDZ-REF19763
                WORK-REF19764 RWORK-REF19765 IWORK-REF19766 IFAIL-REF19767
                INFO-REF19768))))

(CFFI:DEFCFUN ("zhprfs_" %%ZHPRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (AP :POINTER)
  (AFP :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHPRFS
                   (UPLO N NRHS AP AFP IPIV B LDB X LDX FERR BERR WORK RWORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHPRFS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AFP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19770 ':INT32) (NRHS-REF19771 ':INT32)
                              (LDB-REF19776 ':INT32) (LDX-REF19778 ':INT32)
                              (INFO-REF19783 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19770 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF19771 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF19776 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF19778 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19783 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF19772 AP) (AFP-REF19773 AFP)
                                            (IPIV-REF19774 IPIV) (B-REF19775 B)
                                            (X-REF19777 X) (FERR-REF19779 FERR)
                                            (BERR-REF19780 BERR)
                                            (WORK-REF19781 WORK)
                                            (RWORK-REF19782 RWORK))
      (%%ZHPRFS UPLO N-REF19770 NRHS-REF19771 AP-REF19772 AFP-REF19773
                IPIV-REF19774 B-REF19775 LDB-REF19776 X-REF19777 LDX-REF19778
                FERR-REF19779 BERR-REF19780 WORK-REF19781 RWORK-REF19782
                INFO-REF19783))))

(CFFI:DEFCFUN ("zhpsv_" %%ZHPSV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (AP :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHPSV (UPLO N NRHS AP IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHPSV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19785 ':INT32) (NRHS-REF19786 ':INT32)
                              (LDB-REF19790 ':INT32) (INFO-REF19791 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19785 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF19786 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF19790 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19791 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF19787 AP)
                                            (IPIV-REF19788 IPIV) (B-REF19789 B))
      (%%ZHPSV UPLO N-REF19785 NRHS-REF19786 AP-REF19787 IPIV-REF19788
               B-REF19789 LDB-REF19790 INFO-REF19791))))

(CFFI:DEFCFUN ("zhpsvx_" %%ZHPSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (FACT :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (AP :POINTER)
  (AFP :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHPSVX
                   (FACT UPLO N NRHS AP AFP IPIV B LDB X LDX RCOND FERR BERR
                    WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHPSVX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AFP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19794 ':INT32) (NRHS-REF19795 ':INT32)
                              (LDB-REF19800 ':INT32) (LDX-REF19802 ':INT32)
                              (RCOND-REF19803 ':DOUBLE) (INFO-REF19808 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19794 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF19795 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF19800 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF19802 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF19803 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19808 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF19796 AP) (AFP-REF19797 AFP)
                                            (IPIV-REF19798 IPIV) (B-REF19799 B)
                                            (X-REF19801 X) (FERR-REF19804 FERR)
                                            (BERR-REF19805 BERR)
                                            (WORK-REF19806 WORK)
                                            (RWORK-REF19807 RWORK))
      (%%ZHPSVX FACT UPLO N-REF19794 NRHS-REF19795 AP-REF19796 AFP-REF19797
                IPIV-REF19798 B-REF19799 LDB-REF19800 X-REF19801 LDX-REF19802
                RCOND-REF19803 FERR-REF19804 BERR-REF19805 WORK-REF19806
                RWORK-REF19807 INFO-REF19808))))

(CFFI:DEFCFUN ("zhptrd_" %%ZHPTRD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (D :POINTER)
  (E :POINTER)
  (TAU :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHPTRD (UPLO N AP D E TAU INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHPTRD)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19810 ':INT32) (INFO-REF19815 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19810 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19815 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF19811 AP) (D-REF19812 D)
                                            (E-REF19813 E) (TAU-REF19814 TAU))
      (%%ZHPTRD UPLO N-REF19810 AP-REF19811 D-REF19812 E-REF19813 TAU-REF19814
                INFO-REF19815))))

(CFFI:DEFCFUN ("zhptrf_" %%ZHPTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (IPIV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHPTRF (UPLO N AP IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHPTRF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19817 ':INT32) (INFO-REF19820 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19817 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19820 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF19818 AP)
                                            (IPIV-REF19819 IPIV))
      (%%ZHPTRF UPLO N-REF19817 AP-REF19818 IPIV-REF19819 INFO-REF19820))))

(CFFI:DEFCFUN ("zhptri_" %%ZHPTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHPTRI (UPLO N AP IPIV WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHPTRI)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19822 ':INT32) (INFO-REF19826 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19822 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19826 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF19823 AP)
                                            (IPIV-REF19824 IPIV)
                                            (WORK-REF19825 WORK))
      (%%ZHPTRI UPLO N-REF19822 AP-REF19823 IPIV-REF19824 WORK-REF19825
                INFO-REF19826))))

(CFFI:DEFCFUN ("zhptrs_" %%ZHPTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (AP :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHPTRS (UPLO N NRHS AP IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHPTRS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19828 ':INT32) (NRHS-REF19829 ':INT32)
                              (LDB-REF19833 ':INT32) (INFO-REF19834 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19828 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF19829 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF19833 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19834 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF19830 AP)
                                            (IPIV-REF19831 IPIV) (B-REF19832 B))
      (%%ZHPTRS UPLO N-REF19828 NRHS-REF19829 AP-REF19830 IPIV-REF19831
                B-REF19832 LDB-REF19833 INFO-REF19834))))

(CFFI:DEFCFUN ("zhsein_" %%ZHSEIN :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (EIGSRC :STRING)
  (INITV :STRING)
  (SELECT :POINTER)
  (N :POINTER)
  (H :POINTER)
  (LDH :POINTER)
  (W :POINTER)
  (VL :POINTER)
  (LDVL :POINTER)
  (VR :POINTER)
  (LDVR :POINTER)
  (MM :POINTER)
  (M :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (IFAILL :POINTER)
  (IFAILR :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHSEIN
                   (SIDE EIGSRC INITV SELECT N H LDH W VL LDVL VR LDVR MM M
                    WORK RWORK IFAILL IFAILR INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHSEIN)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EIGSRC)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING INITV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        SELECT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        H)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        VL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        VR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IFAILL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IFAILR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19839 ':INT32) (LDH-REF19841 ':INT32)
                              (LDVL-REF19844 ':INT32) (LDVR-REF19846 ':INT32)
                              (MM-REF19847 ':INT32) (M-REF19848 ':INT32)
                              (INFO-REF19853 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19839 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF19841 :INT32) LDH)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF19844 :INT32) LDVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF19846 :INT32) LDVR)
    (COMMON-LISP:SETF (CFFI:MEM-REF MM-REF19847 :INT32) MM)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF19848 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19853 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF19838 SELECT)
                                            (H-REF19840 H) (W-REF19842 W)
                                            (VL-REF19843 VL) (VR-REF19845 VR)
                                            (WORK-REF19849 WORK)
                                            (RWORK-REF19850 RWORK)
                                            (IFAILL-REF19851 IFAILL)
                                            (IFAILR-REF19852 IFAILR))
      (%%ZHSEIN SIDE EIGSRC INITV SELECT-REF19838 N-REF19839 H-REF19840
                LDH-REF19841 W-REF19842 VL-REF19843 LDVL-REF19844 VR-REF19845
                LDVR-REF19846 MM-REF19847 M-REF19848 WORK-REF19849
                RWORK-REF19850 IFAILL-REF19851 IFAILR-REF19852 INFO-REF19853))))

(CFFI:DEFCFUN ("zhseqr_" %%ZHSEQR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOB :STRING)
  (COMPZ :STRING)
  (N :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (H :POINTER)
  (LDH :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZHSEQR (JOB COMPZ N ILO IHI H LDH W Z LDZ WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHSEQR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING COMPZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        H)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19856 ':INT32) (ILO-REF19857 ':INT32)
                              (IHI-REF19858 ':INT32) (LDH-REF19860 ':INT32)
                              (LDZ-REF19863 ':INT32) (LWORK-REF19865 ':INT32)
                              (INFO-REF19866 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19856 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF19857 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF19858 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF19860 :INT32) LDH)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF19863 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19865 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19866 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF19859 H) (W-REF19861 W)
                                            (Z-REF19862 Z) (WORK-REF19864 WORK))
      (%%ZHSEQR JOB COMPZ N-REF19856 ILO-REF19857 IHI-REF19858 H-REF19859
                LDH-REF19860 W-REF19861 Z-REF19862 LDZ-REF19863 WORK-REF19864
                LWORK-REF19865 INFO-REF19866))))

(CFFI:DEFCFUN ("zla_gbamv_" %%ZLA_GBAMV :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (TRANS :POINTER)
  (M :POINTER)
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (ALPHA :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (BETA :POINTER)
  (Y :POINTER)
  (INCY :POINTER))

(COMMON-LISP:DEFUN %ZLA_GBAMV
                   (TRANS M N KL KU ALPHA AB LDAB X INCX BETA Y INCY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLA_GBAMV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
  (CFFI:WITH-FOREIGN-OBJECTS ((TRANS-REF19867 ':INT32) (M-REF19868 ':INT32)
                              (N-REF19869 ':INT32) (KL-REF19870 ':INT32)
                              (KU-REF19871 ':INT32) (ALPHA-REF19872 ':DOUBLE)
                              (LDAB-REF19874 ':INT32) (INCX-REF19876 ':INT32)
                              (BETA-REF19877 ':DOUBLE) (INCY-REF19879 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF TRANS-REF19867 :INT32) TRANS)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF19868 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19869 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF19870 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF19871 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF19872 :DOUBLE) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF19874 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF19876 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF19877 :DOUBLE) BETA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF19879 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF19873 AB) (X-REF19875 X)
                                            (Y-REF19878 Y))
      (%%ZLA_GBAMV TRANS-REF19867 M-REF19868 N-REF19869 KL-REF19870 KU-REF19871
                   ALPHA-REF19872 AB-REF19873 LDAB-REF19874 X-REF19875
                   INCX-REF19876 BETA-REF19877 Y-REF19878 INCY-REF19879))))

(CFFI:DEFCFUN ("zla_gbrcond_c_" %%ZLA_GBRCOND_C :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :DOUBLE
  (TRANS :STRING)
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (AFB :POINTER)
  (LDAFB :POINTER)
  (IPIV :POINTER)
  (C :POINTER)
  (CAPPLY :POINTER)
  (INFO :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER))

(COMMON-LISP:DEFUN %ZLA_GBRCOND_C
                   (TRANS N KL KU AB LDAB AFB LDAFB IPIV C CAPPLY INFO WORK
                    RWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLA_GBRCOND_C)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AFB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAFB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CAPPLY)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19881 ':INT32) (KL-REF19882 ':INT32)
                              (KU-REF19883 ':INT32) (LDAB-REF19885 ':INT32)
                              (LDAFB-REF19887 ':INT32)
                              (CAPPLY-REF19890 ':INT32) (INFO-REF19891 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19881 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF19882 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF19883 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF19885 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF19887 :INT32) LDAFB)
    (COMMON-LISP:SETF (CFFI:MEM-REF CAPPLY-REF19890 :INT32) CAPPLY)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19891 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF19884 AB) (AFB-REF19886 AFB)
                                            (IPIV-REF19888 IPIV) (C-REF19889 C)
                                            (WORK-REF19892 WORK)
                                            (RWORK-REF19893 RWORK))
      (%%ZLA_GBRCOND_C TRANS N-REF19881 KL-REF19882 KU-REF19883 AB-REF19884
                       LDAB-REF19885 AFB-REF19886 LDAFB-REF19887 IPIV-REF19888
                       C-REF19889 CAPPLY-REF19890 INFO-REF19891 WORK-REF19892
                       RWORK-REF19893))))

(CFFI:DEFCFUN ("zla_gbrcond_x_" %%ZLA_GBRCOND_X :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :DOUBLE
  (TRANS :STRING)
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (AFB :POINTER)
  (LDAFB :POINTER)
  (IPIV :POINTER)
  (X :POINTER)
  (INFO :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER))

(COMMON-LISP:DEFUN %ZLA_GBRCOND_X
                   (TRANS N KL KU AB LDAB AFB LDAFB IPIV X INFO WORK RWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLA_GBRCOND_X)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AFB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAFB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19895 ':INT32) (KL-REF19896 ':INT32)
                              (KU-REF19897 ':INT32) (LDAB-REF19899 ':INT32)
                              (LDAFB-REF19901 ':INT32) (INFO-REF19904 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19895 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF19896 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF19897 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF19899 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF19901 :INT32) LDAFB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19904 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF19898 AB) (AFB-REF19900 AFB)
                                            (IPIV-REF19902 IPIV) (X-REF19903 X)
                                            (WORK-REF19905 WORK)
                                            (RWORK-REF19906 RWORK))
      (%%ZLA_GBRCOND_X TRANS N-REF19895 KL-REF19896 KU-REF19897 AB-REF19898
                       LDAB-REF19899 AFB-REF19900 LDAFB-REF19901 IPIV-REF19902
                       X-REF19903 INFO-REF19904 WORK-REF19905 RWORK-REF19906))))

(CFFI:DEFCFUN ("zla_gbrfsx_extended_" %%ZLA_GBRFSX_EXTENDED :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (PREC_TYPE :POINTER)
  (TRANS_TYPE :POINTER)
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (NRHS :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (AFB :POINTER)
  (LDAFB :POINTER)
  (IPIV :POINTER)
  (COLEQU :POINTER)
  (C :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (Y :POINTER)
  (LDY :POINTER)
  (BERR_OUT :POINTER)
  (N_NORMS :POINTER)
  (ERR_BNDS_NORM :POINTER)
  (ERR_BNDS_COMP :POINTER)
  (RES :POINTER)
  (AYB :POINTER)
  (DY :POINTER)
  (Y_TAIL :POINTER)
  (RCOND :POINTER)
  (ITHRESH :POINTER)
  (RTHRESH :POINTER)
  (DZ_UB :POINTER)
  (IGNORE_CWISE :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZLA_GBRFSX_EXTENDED
                   (PREC_TYPE TRANS_TYPE N KL KU NRHS AB LDAB AFB LDAFB IPIV
                    COLEQU C B LDB Y LDY BERR_OUT N_NORMS ERR_BNDS_NORM
                    ERR_BNDS_COMP RES AYB DY Y_TAIL RCOND ITHRESH RTHRESH DZ_UB
                    IGNORE_CWISE INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLA_GBRFSX_EXTENDED)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        PREC_TYPE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        TRANS_TYPE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AFB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAFB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) COLEQU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR_OUT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N_NORMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ERR_BNDS_NORM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ERR_BNDS_COMP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        RES)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        AYB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        DY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Y_TAIL)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITHRESH)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RTHRESH)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DZ_UB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        IGNORE_CWISE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((PREC_TYPE-REF19907 ':INT32)
                              (TRANS_TYPE-REF19908 ':INT32)
                              (N-REF19909 ':INT32) (KL-REF19910 ':INT32)
                              (KU-REF19911 ':INT32) (NRHS-REF19912 ':INT32)
                              (LDAB-REF19914 ':INT32) (LDAFB-REF19916 ':INT32)
                              (COLEQU-REF19918 ':INT32) (LDB-REF19921 ':INT32)
                              (LDY-REF19923 ':INT32) (N_NORMS-REF19925 ':INT32)
                              (RCOND-REF19932 ':DOUBLE)
                              (ITHRESH-REF19933 ':INT32)
                              (RTHRESH-REF19934 ':DOUBLE)
                              (DZ_UB-REF19935 ':DOUBLE)
                              (IGNORE_CWISE-REF19936 ':INT32)
                              (INFO-REF19937 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF PREC_TYPE-REF19907 :INT32) PREC_TYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF TRANS_TYPE-REF19908 :INT32) TRANS_TYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19909 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF19910 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF19911 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF19912 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF19914 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF19916 :INT32) LDAFB)
    (COMMON-LISP:SETF (CFFI:MEM-REF COLEQU-REF19918 :INT32) COLEQU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF19921 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDY-REF19923 :INT32) LDY)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_NORMS-REF19925 :INT32) N_NORMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF19932 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF ITHRESH-REF19933 :INT32) ITHRESH)
    (COMMON-LISP:SETF (CFFI:MEM-REF RTHRESH-REF19934 :DOUBLE) RTHRESH)
    (COMMON-LISP:SETF (CFFI:MEM-REF DZ_UB-REF19935 :DOUBLE) DZ_UB)
    (COMMON-LISP:SETF (CFFI:MEM-REF IGNORE_CWISE-REF19936 :INT32) IGNORE_CWISE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19937 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF19913 AB) (AFB-REF19915 AFB)
                                            (IPIV-REF19917 IPIV) (C-REF19919 C)
                                            (B-REF19920 B) (Y-REF19922 Y)
                                            (BERR_OUT-REF19924 BERR_OUT)
                                            (ERR_BNDS_NORM-REF19926
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF19927
                                             ERR_BNDS_COMP)
                                            (RES-REF19928 RES)
                                            (AYB-REF19929 AYB) (DY-REF19930 DY)
                                            (Y_TAIL-REF19931 Y_TAIL))
      (%%ZLA_GBRFSX_EXTENDED PREC_TYPE-REF19907 TRANS_TYPE-REF19908 N-REF19909
                             KL-REF19910 KU-REF19911 NRHS-REF19912 AB-REF19913
                             LDAB-REF19914 AFB-REF19915 LDAFB-REF19916
                             IPIV-REF19917 COLEQU-REF19918 C-REF19919
                             B-REF19920 LDB-REF19921 Y-REF19922 LDY-REF19923
                             BERR_OUT-REF19924 N_NORMS-REF19925
                             ERR_BNDS_NORM-REF19926 ERR_BNDS_COMP-REF19927
                             RES-REF19928 AYB-REF19929 DY-REF19930
                             Y_TAIL-REF19931 RCOND-REF19932 ITHRESH-REF19933
                             RTHRESH-REF19934 DZ_UB-REF19935
                             IGNORE_CWISE-REF19936 INFO-REF19937))))

(CFFI:DEFCFUN ("zla_gbrpvgrw_" %%ZLA_GBRPVGRW :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :DOUBLE
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (NCOLS :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (AFB :POINTER)
  (LDAFB :POINTER))

(COMMON-LISP:DEFUN %ZLA_GBRPVGRW (N KL KU NCOLS AB LDAB AFB LDAFB)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLA_GBRPVGRW)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NCOLS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AFB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAFB))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19938 ':INT32) (KL-REF19939 ':INT32)
                              (KU-REF19940 ':INT32) (NCOLS-REF19941 ':INT32)
                              (LDAB-REF19943 ':INT32) (LDAFB-REF19945 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19938 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF19939 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF19940 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NCOLS-REF19941 :INT32) NCOLS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF19943 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF19945 :INT32) LDAFB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF19942 AB) (AFB-REF19944 AFB))
      (%%ZLA_GBRPVGRW N-REF19938 KL-REF19939 KU-REF19940 NCOLS-REF19941
                      AB-REF19942 LDAB-REF19943 AFB-REF19944 LDAFB-REF19945))))

(CFFI:DEFCFUN ("zla_geamv_" %%ZLA_GEAMV :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (TRANS :POINTER)
  (M :POINTER)
  (N :POINTER)
  (ALPHA :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (BETA :POINTER)
  (Y :POINTER)
  (INCY :POINTER))

(COMMON-LISP:DEFUN %ZLA_GEAMV (TRANS M N ALPHA A LDA X INCX BETA Y INCY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLA_GEAMV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
  (CFFI:WITH-FOREIGN-OBJECTS ((TRANS-REF19946 ':INT32) (M-REF19947 ':INT32)
                              (N-REF19948 ':INT32) (ALPHA-REF19949 ':DOUBLE)
                              (LDA-REF19951 ':INT32) (INCX-REF19953 ':INT32)
                              (BETA-REF19954 ':DOUBLE) (INCY-REF19956 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF TRANS-REF19946 :INT32) TRANS)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF19947 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19948 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF19949 :DOUBLE) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19951 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF19953 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF19954 :DOUBLE) BETA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF19956 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19950 A) (X-REF19952 X)
                                            (Y-REF19955 Y))
      (%%ZLA_GEAMV TRANS-REF19946 M-REF19947 N-REF19948 ALPHA-REF19949
                   A-REF19950 LDA-REF19951 X-REF19952 INCX-REF19953
                   BETA-REF19954 Y-REF19955 INCY-REF19956))))

(CFFI:DEFCFUN ("zla_gercond_c_" %%ZLA_GERCOND_C :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :DOUBLE
  (TRANS :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (C :POINTER)
  (CAPPLY :POINTER)
  (INFO :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER))

(COMMON-LISP:DEFUN %ZLA_GERCOND_C
                   (TRANS N A LDA AF LDAF IPIV C CAPPLY INFO WORK RWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLA_GERCOND_C)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CAPPLY)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19958 ':INT32) (LDA-REF19960 ':INT32)
                              (LDAF-REF19962 ':INT32) (CAPPLY-REF19965 ':INT32)
                              (INFO-REF19966 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19958 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19960 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF19962 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF CAPPLY-REF19965 :INT32) CAPPLY)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19966 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19959 A) (AF-REF19961 AF)
                                            (IPIV-REF19963 IPIV) (C-REF19964 C)
                                            (WORK-REF19967 WORK)
                                            (RWORK-REF19968 RWORK))
      (%%ZLA_GERCOND_C TRANS N-REF19958 A-REF19959 LDA-REF19960 AF-REF19961
                       LDAF-REF19962 IPIV-REF19963 C-REF19964 CAPPLY-REF19965
                       INFO-REF19966 WORK-REF19967 RWORK-REF19968))))

(CFFI:DEFCFUN ("zla_gercond_x_" %%ZLA_GERCOND_X :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :DOUBLE
  (TRANS :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (X :POINTER)
  (INFO :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER))

(COMMON-LISP:DEFUN %ZLA_GERCOND_X
                   (TRANS N A LDA AF LDAF IPIV X INFO WORK RWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLA_GERCOND_X)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19970 ':INT32) (LDA-REF19972 ':INT32)
                              (LDAF-REF19974 ':INT32) (INFO-REF19977 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19970 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19972 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF19974 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19977 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19971 A) (AF-REF19973 AF)
                                            (IPIV-REF19975 IPIV) (X-REF19976 X)
                                            (WORK-REF19978 WORK)
                                            (RWORK-REF19979 RWORK))
      (%%ZLA_GERCOND_X TRANS N-REF19970 A-REF19971 LDA-REF19972 AF-REF19973
                       LDAF-REF19974 IPIV-REF19975 X-REF19976 INFO-REF19977
                       WORK-REF19978 RWORK-REF19979))))

(CFFI:DEFCFUN ("zla_gerfsx_extended_" %%ZLA_GERFSX_EXTENDED :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (PREC_TYPE :POINTER)
  (TRANS_TYPE :POINTER)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (COLEQU :POINTER)
  (C :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (Y :POINTER)
  (LDY :POINTER)
  (BERR_OUT :POINTER)
  (N_NORMS :POINTER)
  (ERRS_N :POINTER)
  (ERRS_C :POINTER)
  (RES :POINTER)
  (AYB :POINTER)
  (DY :POINTER)
  (Y_TAIL :POINTER)
  (RCOND :POINTER)
  (ITHRESH :POINTER)
  (RTHRESH :POINTER)
  (DZ_UB :POINTER)
  (IGNORE_CWISE :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZLA_GERFSX_EXTENDED
                   (PREC_TYPE TRANS_TYPE N NRHS A LDA AF LDAF IPIV COLEQU C B
                    LDB Y LDY BERR_OUT N_NORMS ERRS_N ERRS_C RES AYB DY Y_TAIL
                    RCOND ITHRESH RTHRESH DZ_UB IGNORE_CWISE INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLA_GERFSX_EXTENDED)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        PREC_TYPE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        TRANS_TYPE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) COLEQU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR_OUT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N_NORMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ERRS_N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ERRS_C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        RES)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        AYB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        DY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Y_TAIL)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITHRESH)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RTHRESH)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DZ_UB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        IGNORE_CWISE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((PREC_TYPE-REF19980 ':INT32)
                              (TRANS_TYPE-REF19981 ':INT32)
                              (N-REF19982 ':INT32) (NRHS-REF19983 ':INT32)
                              (LDA-REF19985 ':INT32) (LDAF-REF19987 ':INT32)
                              (COLEQU-REF19989 ':INT32) (LDB-REF19992 ':INT32)
                              (LDY-REF19994 ':INT32) (N_NORMS-REF19996 ':INT32)
                              (RCOND-REF20003 ':DOUBLE)
                              (ITHRESH-REF20004 ':INT32)
                              (RTHRESH-REF20005 ':DOUBLE)
                              (DZ_UB-REF20006 ':DOUBLE)
                              (IGNORE_CWISE-REF20007 ':INT32)
                              (INFO-REF20008 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF PREC_TYPE-REF19980 :INT32) PREC_TYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF TRANS_TYPE-REF19981 :INT32) TRANS_TYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19982 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF19983 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19985 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF19987 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF COLEQU-REF19989 :INT32) COLEQU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF19992 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDY-REF19994 :INT32) LDY)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_NORMS-REF19996 :INT32) N_NORMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF20003 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF ITHRESH-REF20004 :INT32) ITHRESH)
    (COMMON-LISP:SETF (CFFI:MEM-REF RTHRESH-REF20005 :DOUBLE) RTHRESH)
    (COMMON-LISP:SETF (CFFI:MEM-REF DZ_UB-REF20006 :DOUBLE) DZ_UB)
    (COMMON-LISP:SETF (CFFI:MEM-REF IGNORE_CWISE-REF20007 :INT32) IGNORE_CWISE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20008 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19984 A) (AF-REF19986 AF)
                                            (IPIV-REF19988 IPIV) (C-REF19990 C)
                                            (B-REF19991 B) (Y-REF19993 Y)
                                            (BERR_OUT-REF19995 BERR_OUT)
                                            (ERRS_N-REF19997 ERRS_N)
                                            (ERRS_C-REF19998 ERRS_C)
                                            (RES-REF19999 RES)
                                            (AYB-REF20000 AYB) (DY-REF20001 DY)
                                            (Y_TAIL-REF20002 Y_TAIL))
      (%%ZLA_GERFSX_EXTENDED PREC_TYPE-REF19980 TRANS_TYPE-REF19981 N-REF19982
                             NRHS-REF19983 A-REF19984 LDA-REF19985 AF-REF19986
                             LDAF-REF19987 IPIV-REF19988 COLEQU-REF19989
                             C-REF19990 B-REF19991 LDB-REF19992 Y-REF19993
                             LDY-REF19994 BERR_OUT-REF19995 N_NORMS-REF19996
                             ERRS_N-REF19997 ERRS_C-REF19998 RES-REF19999
                             AYB-REF20000 DY-REF20001 Y_TAIL-REF20002
                             RCOND-REF20003 ITHRESH-REF20004 RTHRESH-REF20005
                             DZ_UB-REF20006 IGNORE_CWISE-REF20007
                             INFO-REF20008))))

(CFFI:DEFCFUN ("zla_gerpvgrw_" %%ZLA_GERPVGRW :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :DOUBLE
  (N :POINTER)
  (NCOLS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER))

(COMMON-LISP:DEFUN %ZLA_GERPVGRW (N NCOLS A LDA AF LDAF)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLA_GERPVGRW)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NCOLS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20009 ':INT32) (NCOLS-REF20010 ':INT32)
                              (LDA-REF20012 ':INT32) (LDAF-REF20014 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20009 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NCOLS-REF20010 :INT32) NCOLS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20012 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF20014 :INT32) LDAF)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20011 A) (AF-REF20013 AF))
      (%%ZLA_GERPVGRW N-REF20009 NCOLS-REF20010 A-REF20011 LDA-REF20012
                      AF-REF20013 LDAF-REF20014))))

(CFFI:DEFCFUN ("zla_heamv_" %%ZLA_HEAMV :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :POINTER)
  (N :POINTER)
  (ALPHA :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (BETA :POINTER)
  (Y :POINTER)
  (INCY :POINTER))

(COMMON-LISP:DEFUN %ZLA_HEAMV (UPLO N ALPHA A LDA X INCX BETA Y INCY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLA_HEAMV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
  (CFFI:WITH-FOREIGN-OBJECTS ((UPLO-REF20015 ':INT32) (N-REF20016 ':INT32)
                              (ALPHA-REF20017 ':DOUBLE) (LDA-REF20019 ':INT32)
                              (INCX-REF20021 ':INT32) (BETA-REF20022 ':DOUBLE)
                              (INCY-REF20024 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF UPLO-REF20015 :INT32) UPLO)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20016 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF20017 :DOUBLE) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20019 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF20021 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF20022 :DOUBLE) BETA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF20024 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20018 A) (X-REF20020 X)
                                            (Y-REF20023 Y))
      (%%ZLA_HEAMV UPLO-REF20015 N-REF20016 ALPHA-REF20017 A-REF20018
                   LDA-REF20019 X-REF20020 INCX-REF20021 BETA-REF20022
                   Y-REF20023 INCY-REF20024))))

(CFFI:DEFCFUN ("zla_hercond_c_" %%ZLA_HERCOND_C :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :DOUBLE
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (C :POINTER)
  (CAPPLY :POINTER)
  (INFO :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER))

(COMMON-LISP:DEFUN %ZLA_HERCOND_C
                   (UPLO N A LDA AF LDAF IPIV C CAPPLY INFO WORK RWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLA_HERCOND_C)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CAPPLY)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20026 ':INT32) (LDA-REF20028 ':INT32)
                              (LDAF-REF20030 ':INT32) (CAPPLY-REF20033 ':INT32)
                              (INFO-REF20034 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20026 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20028 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF20030 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF CAPPLY-REF20033 :INT32) CAPPLY)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20034 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20027 A) (AF-REF20029 AF)
                                            (IPIV-REF20031 IPIV) (C-REF20032 C)
                                            (WORK-REF20035 WORK)
                                            (RWORK-REF20036 RWORK))
      (%%ZLA_HERCOND_C UPLO N-REF20026 A-REF20027 LDA-REF20028 AF-REF20029
                       LDAF-REF20030 IPIV-REF20031 C-REF20032 CAPPLY-REF20033
                       INFO-REF20034 WORK-REF20035 RWORK-REF20036))))

(CFFI:DEFCFUN ("zla_hercond_x_" %%ZLA_HERCOND_X :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :DOUBLE
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (X :POINTER)
  (INFO :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER))

(COMMON-LISP:DEFUN %ZLA_HERCOND_X (UPLO N A LDA AF LDAF IPIV X INFO WORK RWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLA_HERCOND_X)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20038 ':INT32) (LDA-REF20040 ':INT32)
                              (LDAF-REF20042 ':INT32) (INFO-REF20045 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20038 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20040 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF20042 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20045 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20039 A) (AF-REF20041 AF)
                                            (IPIV-REF20043 IPIV) (X-REF20044 X)
                                            (WORK-REF20046 WORK)
                                            (RWORK-REF20047 RWORK))
      (%%ZLA_HERCOND_X UPLO N-REF20038 A-REF20039 LDA-REF20040 AF-REF20041
                       LDAF-REF20042 IPIV-REF20043 X-REF20044 INFO-REF20045
                       WORK-REF20046 RWORK-REF20047))))

(CFFI:DEFCFUN ("zla_herfsx_extended_" %%ZLA_HERFSX_EXTENDED :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (PREC_TYPE :POINTER)
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (COLEQU :POINTER)
  (C :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (Y :POINTER)
  (LDY :POINTER)
  (BERR_OUT :POINTER)
  (N_NORMS :POINTER)
  (ERR_BNDS_NORM :POINTER)
  (ERR_BNDS_COMP :POINTER)
  (RES :POINTER)
  (AYB :POINTER)
  (DY :POINTER)
  (Y_TAIL :POINTER)
  (RCOND :POINTER)
  (ITHRESH :POINTER)
  (RTHRESH :POINTER)
  (DZ_UB :POINTER)
  (IGNORE_CWISE :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZLA_HERFSX_EXTENDED
                   (PREC_TYPE UPLO N NRHS A LDA AF LDAF IPIV COLEQU C B LDB Y
                    LDY BERR_OUT N_NORMS ERR_BNDS_NORM ERR_BNDS_COMP RES AYB DY
                    Y_TAIL RCOND ITHRESH RTHRESH DZ_UB IGNORE_CWISE INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLA_HERFSX_EXTENDED)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        PREC_TYPE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) COLEQU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR_OUT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N_NORMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ERR_BNDS_NORM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ERR_BNDS_COMP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        RES)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        AYB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        DY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Y_TAIL)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITHRESH)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RTHRESH)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DZ_UB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        IGNORE_CWISE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((PREC_TYPE-REF20048 ':INT32) (N-REF20050 ':INT32)
                              (NRHS-REF20051 ':INT32) (LDA-REF20053 ':INT32)
                              (LDAF-REF20055 ':INT32) (COLEQU-REF20057 ':INT32)
                              (LDB-REF20060 ':INT32) (LDY-REF20062 ':INT32)
                              (N_NORMS-REF20064 ':INT32)
                              (RCOND-REF20071 ':DOUBLE)
                              (ITHRESH-REF20072 ':INT32)
                              (RTHRESH-REF20073 ':DOUBLE)
                              (DZ_UB-REF20074 ':DOUBLE)
                              (IGNORE_CWISE-REF20075 ':INT32)
                              (INFO-REF20076 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF PREC_TYPE-REF20048 :INT32) PREC_TYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20050 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF20051 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20053 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF20055 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF COLEQU-REF20057 :INT32) COLEQU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF20060 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDY-REF20062 :INT32) LDY)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_NORMS-REF20064 :INT32) N_NORMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF20071 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF ITHRESH-REF20072 :INT32) ITHRESH)
    (COMMON-LISP:SETF (CFFI:MEM-REF RTHRESH-REF20073 :DOUBLE) RTHRESH)
    (COMMON-LISP:SETF (CFFI:MEM-REF DZ_UB-REF20074 :DOUBLE) DZ_UB)
    (COMMON-LISP:SETF (CFFI:MEM-REF IGNORE_CWISE-REF20075 :INT32) IGNORE_CWISE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20076 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20052 A) (AF-REF20054 AF)
                                            (IPIV-REF20056 IPIV) (C-REF20058 C)
                                            (B-REF20059 B) (Y-REF20061 Y)
                                            (BERR_OUT-REF20063 BERR_OUT)
                                            (ERR_BNDS_NORM-REF20065
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF20066
                                             ERR_BNDS_COMP)
                                            (RES-REF20067 RES)
                                            (AYB-REF20068 AYB) (DY-REF20069 DY)
                                            (Y_TAIL-REF20070 Y_TAIL))
      (%%ZLA_HERFSX_EXTENDED PREC_TYPE-REF20048 UPLO N-REF20050 NRHS-REF20051
                             A-REF20052 LDA-REF20053 AF-REF20054 LDAF-REF20055
                             IPIV-REF20056 COLEQU-REF20057 C-REF20058
                             B-REF20059 LDB-REF20060 Y-REF20061 LDY-REF20062
                             BERR_OUT-REF20063 N_NORMS-REF20064
                             ERR_BNDS_NORM-REF20065 ERR_BNDS_COMP-REF20066
                             RES-REF20067 AYB-REF20068 DY-REF20069
                             Y_TAIL-REF20070 RCOND-REF20071 ITHRESH-REF20072
                             RTHRESH-REF20073 DZ_UB-REF20074
                             IGNORE_CWISE-REF20075 INFO-REF20076))))

(CFFI:DEFCFUN ("zla_herpvgrw_" %%ZLA_HERPVGRW :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :DOUBLE
  (UPLO :STRING)
  (N :POINTER)
  (INFO :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %ZLA_HERPVGRW (UPLO N INFO A LDA AF LDAF IPIV WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLA_HERPVGRW)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20078 ':INT32) (INFO-REF20079 ':INT32)
                              (LDA-REF20081 ':INT32) (LDAF-REF20083 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20078 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20079 :INT32) INFO)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20081 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF20083 :INT32) LDAF)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20080 A) (AF-REF20082 AF)
                                            (IPIV-REF20084 IPIV)
                                            (WORK-REF20085 WORK))
      (%%ZLA_HERPVGRW UPLO N-REF20078 INFO-REF20079 A-REF20080 LDA-REF20081
                      AF-REF20082 LDAF-REF20083 IPIV-REF20084 WORK-REF20085))))

(CFFI:DEFCFUN ("zla_lin_berr_" %%ZLA_LIN_BERR :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (NZ :POINTER)
  (NRHS :POINTER)
  (RES :POINTER)
  (AYB :POINTER)
  (BERR :POINTER))

(COMMON-LISP:DEFUN %ZLA_LIN_BERR (N NZ NRHS RES AYB BERR)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLA_LIN_BERR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        RES)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        AYB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20086 ':INT32) (NZ-REF20087 ':INT32)
                              (NRHS-REF20088 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20086 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NZ-REF20087 :INT32) NZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF20088 :INT32) NRHS)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((RES-REF20089 RES)
                                            (AYB-REF20090 AYB)
                                            (BERR-REF20091 BERR))
      (%%ZLA_LIN_BERR N-REF20086 NZ-REF20087 NRHS-REF20088 RES-REF20089
                      AYB-REF20090 BERR-REF20091))))

(CFFI:DEFCFUN ("zla_porcond_c_" %%ZLA_PORCOND_C :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :DOUBLE
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (C :POINTER)
  (CAPPLY :POINTER)
  (INFO :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER))

(COMMON-LISP:DEFUN %ZLA_PORCOND_C
                   (UPLO N A LDA AF LDAF C CAPPLY INFO WORK RWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLA_PORCOND_C)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CAPPLY)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20093 ':INT32) (LDA-REF20095 ':INT32)
                              (LDAF-REF20097 ':INT32) (CAPPLY-REF20099 ':INT32)
                              (INFO-REF20100 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20093 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20095 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF20097 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF CAPPLY-REF20099 :INT32) CAPPLY)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20100 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20094 A) (AF-REF20096 AF)
                                            (C-REF20098 C) (WORK-REF20101 WORK)
                                            (RWORK-REF20102 RWORK))
      (%%ZLA_PORCOND_C UPLO N-REF20093 A-REF20094 LDA-REF20095 AF-REF20096
                       LDAF-REF20097 C-REF20098 CAPPLY-REF20099 INFO-REF20100
                       WORK-REF20101 RWORK-REF20102))))

(CFFI:DEFCFUN ("zla_porcond_x_" %%ZLA_PORCOND_X :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :DOUBLE
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (X :POINTER)
  (INFO :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER))

(COMMON-LISP:DEFUN %ZLA_PORCOND_X (UPLO N A LDA AF LDAF X INFO WORK RWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLA_PORCOND_X)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20104 ':INT32) (LDA-REF20106 ':INT32)
                              (LDAF-REF20108 ':INT32) (INFO-REF20110 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20104 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20106 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF20108 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20110 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20105 A) (AF-REF20107 AF)
                                            (X-REF20109 X) (WORK-REF20111 WORK)
                                            (RWORK-REF20112 RWORK))
      (%%ZLA_PORCOND_X UPLO N-REF20104 A-REF20105 LDA-REF20106 AF-REF20107
                       LDAF-REF20108 X-REF20109 INFO-REF20110 WORK-REF20111
                       RWORK-REF20112))))

(CFFI:DEFCFUN ("zla_porfsx_extended_" %%ZLA_PORFSX_EXTENDED :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (PREC_TYPE :POINTER)
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (COLEQU :POINTER)
  (C :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (Y :POINTER)
  (LDY :POINTER)
  (BERR_OUT :POINTER)
  (N_NORMS :POINTER)
  (ERR_BNDS_NORM :POINTER)
  (ERR_BNDS_COMP :POINTER)
  (RES :POINTER)
  (AYB :POINTER)
  (DY :POINTER)
  (Y_TAIL :POINTER)
  (RCOND :POINTER)
  (ITHRESH :POINTER)
  (RTHRESH :POINTER)
  (DZ_UB :POINTER)
  (IGNORE_CWISE :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZLA_PORFSX_EXTENDED
                   (PREC_TYPE UPLO N NRHS A LDA AF LDAF COLEQU C B LDB Y LDY
                    BERR_OUT N_NORMS ERR_BNDS_NORM ERR_BNDS_COMP RES AYB DY
                    Y_TAIL RCOND ITHRESH RTHRESH DZ_UB IGNORE_CWISE INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLA_PORFSX_EXTENDED)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        PREC_TYPE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) COLEQU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR_OUT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N_NORMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ERR_BNDS_NORM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ERR_BNDS_COMP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        RES)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        AYB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        DY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Y_TAIL)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITHRESH)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RTHRESH)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DZ_UB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        IGNORE_CWISE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((PREC_TYPE-REF20113 ':INT32) (N-REF20115 ':INT32)
                              (NRHS-REF20116 ':INT32) (LDA-REF20118 ':INT32)
                              (LDAF-REF20120 ':INT32) (COLEQU-REF20121 ':INT32)
                              (LDB-REF20124 ':INT32) (LDY-REF20126 ':INT32)
                              (N_NORMS-REF20128 ':INT32)
                              (RCOND-REF20135 ':DOUBLE)
                              (ITHRESH-REF20136 ':INT32)
                              (RTHRESH-REF20137 ':DOUBLE)
                              (DZ_UB-REF20138 ':DOUBLE)
                              (IGNORE_CWISE-REF20139 ':INT32)
                              (INFO-REF20140 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF PREC_TYPE-REF20113 :INT32) PREC_TYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20115 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF20116 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20118 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF20120 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF COLEQU-REF20121 :INT32) COLEQU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF20124 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDY-REF20126 :INT32) LDY)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_NORMS-REF20128 :INT32) N_NORMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF20135 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF ITHRESH-REF20136 :INT32) ITHRESH)
    (COMMON-LISP:SETF (CFFI:MEM-REF RTHRESH-REF20137 :DOUBLE) RTHRESH)
    (COMMON-LISP:SETF (CFFI:MEM-REF DZ_UB-REF20138 :DOUBLE) DZ_UB)
    (COMMON-LISP:SETF (CFFI:MEM-REF IGNORE_CWISE-REF20139 :INT32) IGNORE_CWISE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20140 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20117 A) (AF-REF20119 AF)
                                            (C-REF20122 C) (B-REF20123 B)
                                            (Y-REF20125 Y)
                                            (BERR_OUT-REF20127 BERR_OUT)
                                            (ERR_BNDS_NORM-REF20129
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF20130
                                             ERR_BNDS_COMP)
                                            (RES-REF20131 RES)
                                            (AYB-REF20132 AYB) (DY-REF20133 DY)
                                            (Y_TAIL-REF20134 Y_TAIL))
      (%%ZLA_PORFSX_EXTENDED PREC_TYPE-REF20113 UPLO N-REF20115 NRHS-REF20116
                             A-REF20117 LDA-REF20118 AF-REF20119 LDAF-REF20120
                             COLEQU-REF20121 C-REF20122 B-REF20123 LDB-REF20124
                             Y-REF20125 LDY-REF20126 BERR_OUT-REF20127
                             N_NORMS-REF20128 ERR_BNDS_NORM-REF20129
                             ERR_BNDS_COMP-REF20130 RES-REF20131 AYB-REF20132
                             DY-REF20133 Y_TAIL-REF20134 RCOND-REF20135
                             ITHRESH-REF20136 RTHRESH-REF20137 DZ_UB-REF20138
                             IGNORE_CWISE-REF20139 INFO-REF20140))))

(CFFI:DEFCFUN ("zla_porpvgrw_" %%ZLA_PORPVGRW :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :DOUBLE
  (UPLO :STRING)
  (NCOLS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %ZLA_PORPVGRW (UPLO NCOLS A LDA AF LDAF WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLA_PORPVGRW)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NCOLS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((NCOLS-REF20142 ':INT32) (LDA-REF20144 ':INT32)
                              (LDAF-REF20146 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF NCOLS-REF20142 :INT32) NCOLS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20144 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF20146 :INT32) LDAF)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20143 A) (AF-REF20145 AF)
                                            (WORK-REF20147 WORK))
      (%%ZLA_PORPVGRW UPLO NCOLS-REF20142 A-REF20143 LDA-REF20144 AF-REF20145
                      LDAF-REF20146 WORK-REF20147))))

(CFFI:DEFCFUN ("zla_syamv_" %%ZLA_SYAMV :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :POINTER)
  (N :POINTER)
  (ALPHA :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (BETA :POINTER)
  (Y :POINTER)
  (INCY :POINTER))

(COMMON-LISP:DEFUN %ZLA_SYAMV (UPLO N ALPHA A LDA X INCX BETA Y INCY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLA_SYAMV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
  (CFFI:WITH-FOREIGN-OBJECTS ((UPLO-REF20148 ':INT32) (N-REF20149 ':INT32)
                              (ALPHA-REF20150 ':DOUBLE) (LDA-REF20152 ':INT32)
                              (INCX-REF20154 ':INT32) (BETA-REF20155 ':DOUBLE)
                              (INCY-REF20157 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF UPLO-REF20148 :INT32) UPLO)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20149 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF20150 :DOUBLE) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20152 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF20154 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF20155 :DOUBLE) BETA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF20157 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20151 A) (X-REF20153 X)
                                            (Y-REF20156 Y))
      (%%ZLA_SYAMV UPLO-REF20148 N-REF20149 ALPHA-REF20150 A-REF20151
                   LDA-REF20152 X-REF20153 INCX-REF20154 BETA-REF20155
                   Y-REF20156 INCY-REF20157))))

(CFFI:DEFCFUN ("zla_syrcond_c_" %%ZLA_SYRCOND_C :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :DOUBLE
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (C :POINTER)
  (CAPPLY :POINTER)
  (INFO :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER))

(COMMON-LISP:DEFUN %ZLA_SYRCOND_C
                   (UPLO N A LDA AF LDAF IPIV C CAPPLY INFO WORK RWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLA_SYRCOND_C)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CAPPLY)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20159 ':INT32) (LDA-REF20161 ':INT32)
                              (LDAF-REF20163 ':INT32) (CAPPLY-REF20166 ':INT32)
                              (INFO-REF20167 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20159 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20161 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF20163 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF CAPPLY-REF20166 :INT32) CAPPLY)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20167 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20160 A) (AF-REF20162 AF)
                                            (IPIV-REF20164 IPIV) (C-REF20165 C)
                                            (WORK-REF20168 WORK)
                                            (RWORK-REF20169 RWORK))
      (%%ZLA_SYRCOND_C UPLO N-REF20159 A-REF20160 LDA-REF20161 AF-REF20162
                       LDAF-REF20163 IPIV-REF20164 C-REF20165 CAPPLY-REF20166
                       INFO-REF20167 WORK-REF20168 RWORK-REF20169))))

(CFFI:DEFCFUN ("zla_syrcond_x_" %%ZLA_SYRCOND_X :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :DOUBLE
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (X :POINTER)
  (INFO :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER))

(COMMON-LISP:DEFUN %ZLA_SYRCOND_X (UPLO N A LDA AF LDAF IPIV X INFO WORK RWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLA_SYRCOND_X)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20171 ':INT32) (LDA-REF20173 ':INT32)
                              (LDAF-REF20175 ':INT32) (INFO-REF20178 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20171 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20173 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF20175 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20178 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20172 A) (AF-REF20174 AF)
                                            (IPIV-REF20176 IPIV) (X-REF20177 X)
                                            (WORK-REF20179 WORK)
                                            (RWORK-REF20180 RWORK))
      (%%ZLA_SYRCOND_X UPLO N-REF20171 A-REF20172 LDA-REF20173 AF-REF20174
                       LDAF-REF20175 IPIV-REF20176 X-REF20177 INFO-REF20178
                       WORK-REF20179 RWORK-REF20180))))

(CFFI:DEFCFUN ("zla_syrfsx_extended_" %%ZLA_SYRFSX_EXTENDED :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (PREC_TYPE :POINTER)
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (COLEQU :POINTER)
  (C :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (Y :POINTER)
  (LDY :POINTER)
  (BERR_OUT :POINTER)
  (N_NORMS :POINTER)
  (ERR_BNDS_NORM :POINTER)
  (ERR_BNDS_COMP :POINTER)
  (RES :POINTER)
  (AYB :POINTER)
  (DY :POINTER)
  (Y_TAIL :POINTER)
  (RCOND :POINTER)
  (ITHRESH :POINTER)
  (RTHRESH :POINTER)
  (DZ_UB :POINTER)
  (IGNORE_CWISE :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZLA_SYRFSX_EXTENDED
                   (PREC_TYPE UPLO N NRHS A LDA AF LDAF IPIV COLEQU C B LDB Y
                    LDY BERR_OUT N_NORMS ERR_BNDS_NORM ERR_BNDS_COMP RES AYB DY
                    Y_TAIL RCOND ITHRESH RTHRESH DZ_UB IGNORE_CWISE INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLA_SYRFSX_EXTENDED)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        PREC_TYPE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) COLEQU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR_OUT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N_NORMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ERR_BNDS_NORM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ERR_BNDS_COMP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        RES)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        AYB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        DY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Y_TAIL)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITHRESH)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RTHRESH)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DZ_UB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        IGNORE_CWISE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((PREC_TYPE-REF20181 ':INT32) (N-REF20183 ':INT32)
                              (NRHS-REF20184 ':INT32) (LDA-REF20186 ':INT32)
                              (LDAF-REF20188 ':INT32) (COLEQU-REF20190 ':INT32)
                              (LDB-REF20193 ':INT32) (LDY-REF20195 ':INT32)
                              (N_NORMS-REF20197 ':INT32)
                              (RCOND-REF20204 ':DOUBLE)
                              (ITHRESH-REF20205 ':INT32)
                              (RTHRESH-REF20206 ':DOUBLE)
                              (DZ_UB-REF20207 ':DOUBLE)
                              (IGNORE_CWISE-REF20208 ':INT32)
                              (INFO-REF20209 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF PREC_TYPE-REF20181 :INT32) PREC_TYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20183 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF20184 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20186 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF20188 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF COLEQU-REF20190 :INT32) COLEQU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF20193 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDY-REF20195 :INT32) LDY)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_NORMS-REF20197 :INT32) N_NORMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF20204 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF ITHRESH-REF20205 :INT32) ITHRESH)
    (COMMON-LISP:SETF (CFFI:MEM-REF RTHRESH-REF20206 :DOUBLE) RTHRESH)
    (COMMON-LISP:SETF (CFFI:MEM-REF DZ_UB-REF20207 :DOUBLE) DZ_UB)
    (COMMON-LISP:SETF (CFFI:MEM-REF IGNORE_CWISE-REF20208 :INT32) IGNORE_CWISE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20209 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20185 A) (AF-REF20187 AF)
                                            (IPIV-REF20189 IPIV) (C-REF20191 C)
                                            (B-REF20192 B) (Y-REF20194 Y)
                                            (BERR_OUT-REF20196 BERR_OUT)
                                            (ERR_BNDS_NORM-REF20198
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF20199
                                             ERR_BNDS_COMP)
                                            (RES-REF20200 RES)
                                            (AYB-REF20201 AYB) (DY-REF20202 DY)
                                            (Y_TAIL-REF20203 Y_TAIL))
      (%%ZLA_SYRFSX_EXTENDED PREC_TYPE-REF20181 UPLO N-REF20183 NRHS-REF20184
                             A-REF20185 LDA-REF20186 AF-REF20187 LDAF-REF20188
                             IPIV-REF20189 COLEQU-REF20190 C-REF20191
                             B-REF20192 LDB-REF20193 Y-REF20194 LDY-REF20195
                             BERR_OUT-REF20196 N_NORMS-REF20197
                             ERR_BNDS_NORM-REF20198 ERR_BNDS_COMP-REF20199
                             RES-REF20200 AYB-REF20201 DY-REF20202
                             Y_TAIL-REF20203 RCOND-REF20204 ITHRESH-REF20205
                             RTHRESH-REF20206 DZ_UB-REF20207
                             IGNORE_CWISE-REF20208 INFO-REF20209))))

(CFFI:DEFCFUN ("zla_syrpvgrw_" %%ZLA_SYRPVGRW :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :DOUBLE
  (UPLO :STRING)
  (N :POINTER)
  (INFO :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %ZLA_SYRPVGRW (UPLO N INFO A LDA AF LDAF IPIV WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLA_SYRPVGRW)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20211 ':INT32) (INFO-REF20212 ':INT32)
                              (LDA-REF20214 ':INT32) (LDAF-REF20216 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20211 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20212 :INT32) INFO)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20214 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF20216 :INT32) LDAF)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20213 A) (AF-REF20215 AF)
                                            (IPIV-REF20217 IPIV)
                                            (WORK-REF20218 WORK))
      (%%ZLA_SYRPVGRW UPLO N-REF20211 INFO-REF20212 A-REF20213 LDA-REF20214
                      AF-REF20215 LDAF-REF20216 IPIV-REF20217 WORK-REF20218))))

(CFFI:DEFCFUN ("zla_wwaddw_" %%ZLA_WWADDW :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (X :POINTER)
  (Y :POINTER)
  (W :POINTER))

(COMMON-LISP:DEFUN %ZLA_WWADDW (N X Y W)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLA_WWADDW)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Y)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        W))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20219 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20219 :INT32) N)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF20220 X) (Y-REF20221 Y)
                                            (W-REF20222 W))
      (%%ZLA_WWADDW N-REF20219 X-REF20220 Y-REF20221 W-REF20222))))

(CFFI:DEFCFUN ("zlabrd_" %%ZLABRD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (NB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (D :POINTER)
  (E :POINTER)
  (TAUQ :POINTER)
  (TAUP :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (Y :POINTER)
  (LDY :POINTER))

(COMMON-LISP:DEFUN %ZLABRD (M N NB A LDA D E TAUQ TAUP X LDX Y LDY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLABRD)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAUQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAUP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDY))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF20223 ':INT32) (N-REF20224 ':INT32)
                              (NB-REF20225 ':INT32) (LDA-REF20227 ':INT32)
                              (LDX-REF20233 ':INT32) (LDY-REF20235 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF20223 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20224 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF20225 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20227 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF20233 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDY-REF20235 :INT32) LDY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20226 A) (D-REF20228 D)
                                            (E-REF20229 E) (TAUQ-REF20230 TAUQ)
                                            (TAUP-REF20231 TAUP) (X-REF20232 X)
                                            (Y-REF20234 Y))
      (%%ZLABRD M-REF20223 N-REF20224 NB-REF20225 A-REF20226 LDA-REF20227
                D-REF20228 E-REF20229 TAUQ-REF20230 TAUP-REF20231 X-REF20232
                LDX-REF20233 Y-REF20234 LDY-REF20235))))

(CFFI:DEFCFUN ("zlacgv_" %%ZLACGV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (X :POINTER)
  (INCX :POINTER))

(COMMON-LISP:DEFUN %ZLACGV (N X INCX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLACGV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20236 ':INT32) (INCX-REF20238 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20236 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF20238 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF20237 X))
      (%%ZLACGV N-REF20236 X-REF20237 INCX-REF20238))))

(CFFI:DEFCFUN ("zlacn2_" %%ZLACN2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (V :POINTER)
  (X :POINTER)
  (EST :POINTER)
  (KASE :POINTER)
  (ISAVE :POINTER))

(COMMON-LISP:DEFUN %ZLACN2 (N V X EST KASE ISAVE)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLACN2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        V)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT EST)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KASE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        ISAVE))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20239 ':INT32) (EST-REF20242 ':DOUBLE)
                              (KASE-REF20243 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20239 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF EST-REF20242 :DOUBLE) EST)
    (COMMON-LISP:SETF (CFFI:MEM-REF KASE-REF20243 :INT32) KASE)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF20240 V) (X-REF20241 X)
                                            (ISAVE-REF20244 ISAVE))
      (%%ZLACN2 N-REF20239 V-REF20240 X-REF20241 EST-REF20242 KASE-REF20243
                ISAVE-REF20244))))

(CFFI:DEFCFUN ("zlacon_" %%ZLACON :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (V :POINTER)
  (X :POINTER)
  (EST :POINTER)
  (KASE :POINTER))

(COMMON-LISP:DEFUN %ZLACON (N V X EST KASE)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLACON)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        V)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT EST)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KASE))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20245 ':INT32) (EST-REF20248 ':DOUBLE)
                              (KASE-REF20249 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20245 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF EST-REF20248 :DOUBLE) EST)
    (COMMON-LISP:SETF (CFFI:MEM-REF KASE-REF20249 :INT32) KASE)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF20246 V) (X-REF20247 X))
      (%%ZLACON N-REF20245 V-REF20246 X-REF20247 EST-REF20248 KASE-REF20249))))

(CFFI:DEFCFUN ("zlacp2_" %%ZLACP2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER))

(COMMON-LISP:DEFUN %ZLACP2 (UPLO M N A LDA B LDB)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLACP2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF20251 ':INT32) (N-REF20252 ':INT32)
                              (LDA-REF20254 ':INT32) (LDB-REF20256 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF20251 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20252 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20254 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF20256 :INT32) LDB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20253 A) (B-REF20255 B))
      (%%ZLACP2 UPLO M-REF20251 N-REF20252 A-REF20253 LDA-REF20254 B-REF20255
                LDB-REF20256))))

(CFFI:DEFCFUN ("zlacpy_" %%ZLACPY :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER))

(COMMON-LISP:DEFUN %ZLACPY (UPLO M N A LDA B LDB)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLACPY)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF20258 ':INT32) (N-REF20259 ':INT32)
                              (LDA-REF20261 ':INT32) (LDB-REF20263 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF20258 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20259 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20261 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF20263 :INT32) LDB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20260 A) (B-REF20262 B))
      (%%ZLACPY UPLO M-REF20258 N-REF20259 A-REF20260 LDA-REF20261 B-REF20262
                LDB-REF20263))))

(CFFI:DEFCFUN ("zlacrm_" %%ZLACRM :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (RWORK :POINTER))

(COMMON-LISP:DEFUN %ZLACRM (M N A LDA B LDB C LDC RWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLACRM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF20264 ':INT32) (N-REF20265 ':INT32)
                              (LDA-REF20267 ':INT32) (LDB-REF20269 ':INT32)
                              (LDC-REF20271 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF20264 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20265 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20267 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF20269 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF20271 :INT32) LDC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20266 A) (B-REF20268 B)
                                            (C-REF20270 C)
                                            (RWORK-REF20272 RWORK))
      (%%ZLACRM M-REF20264 N-REF20265 A-REF20266 LDA-REF20267 B-REF20268
                LDB-REF20269 C-REF20270 LDC-REF20271 RWORK-REF20272))))

(CFFI:DEFCFUN ("zlacrt_" %%ZLACRT :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (CX :POINTER)
  (INCX :POINTER)
  (CY :POINTER)
  (INCY :POINTER)
  (C :POINTER)
  (S :POINTER))

(COMMON-LISP:DEFUN %ZLACRT (N CX INCX CY INCY C S)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLACRT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        CX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        CY)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) S))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20273 ':INT32) (INCX-REF20275 ':INT32)
                              (INCY-REF20277 ':INT32)
                              (C-REF20278
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (S-REF20279
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20273 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF20275 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF20277 :INT32) INCY)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              C-REF20278 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART C)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART C)))
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              S-REF20279 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART S)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART S)))
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((CX-REF20274 CX) (CY-REF20276 CY))
      (%%ZLACRT N-REF20273 CX-REF20274 INCX-REF20275 CY-REF20276 INCY-REF20277
                C-REF20278 S-REF20279))))

(CFFI:DEFCFUN ("zladiv_" %%ZLADIV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT
  (X :POINTER)
  (Y :POINTER))

(COMMON-LISP:DEFUN %ZLADIV (X Y)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLADIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) Y))
  (CFFI:WITH-FOREIGN-OBJECTS ((X-REF20280
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (Y-REF20281
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT))
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              X-REF20280 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART X)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART X)))
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              Y-REF20281 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART Y)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART Y)))
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%ZLADIV X-REF20280 Y-REF20281))))

(CFFI:DEFCFUN ("zlaed0_" %%ZLAED0 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (QSIZ :POINTER)
  (N :POINTER)
  (D :POINTER)
  (E :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (QSTORE :POINTER)
  (LDQS :POINTER)
  (RWORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZLAED0 (QSIZ N D E Q LDQ QSTORE LDQS RWORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLAED0)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) QSIZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        QSTORE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((QSIZ-REF20282 ':INT32) (N-REF20283 ':INT32)
                              (LDQ-REF20287 ':INT32) (LDQS-REF20289 ':INT32)
                              (INFO-REF20292 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF QSIZ-REF20282 :INT32) QSIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20283 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF20287 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQS-REF20289 :INT32) LDQS)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20292 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF20284 D) (E-REF20285 E)
                                            (Q-REF20286 Q)
                                            (QSTORE-REF20288 QSTORE)
                                            (RWORK-REF20290 RWORK)
                                            (IWORK-REF20291 IWORK))
      (%%ZLAED0 QSIZ-REF20282 N-REF20283 D-REF20284 E-REF20285 Q-REF20286
                LDQ-REF20287 QSTORE-REF20288 LDQS-REF20289 RWORK-REF20290
                IWORK-REF20291 INFO-REF20292))))

(CFFI:DEFCFUN ("zlaed7_" %%ZLAED7 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (CUTPNT :POINTER)
  (QSIZ :POINTER)
  (TLVLS :POINTER)
  (CURLVL :POINTER)
  (CURPBM :POINTER)
  (D :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (RHO :POINTER)
  (INDXQ :POINTER)
  (QSTORE :POINTER)
  (QPTR :POINTER)
  (PRMPTR :POINTER)
  (PERM :POINTER)
  (GIVPTR :POINTER)
  (GIVCOL :POINTER)
  (GIVNUM :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZLAED7
                   (N CUTPNT QSIZ TLVLS CURLVL CURPBM D Q LDQ RHO INDXQ QSTORE
                    QPTR PRMPTR PERM GIVPTR GIVCOL GIVNUM WORK RWORK IWORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLAED7)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CUTPNT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) QSIZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TLVLS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CURLVL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CURPBM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RHO)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        INDXQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        QSTORE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        QPTR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        PRMPTR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        PERM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        GIVPTR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        GIVCOL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        GIVNUM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20293 ':INT32) (CUTPNT-REF20294 ':INT32)
                              (QSIZ-REF20295 ':INT32) (TLVLS-REF20296 ':INT32)
                              (CURLVL-REF20297 ':INT32)
                              (CURPBM-REF20298 ':INT32) (LDQ-REF20301 ':INT32)
                              (RHO-REF20302 ':DOUBLE) (INFO-REF20314 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20293 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF CUTPNT-REF20294 :INT32) CUTPNT)
    (COMMON-LISP:SETF (CFFI:MEM-REF QSIZ-REF20295 :INT32) QSIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF TLVLS-REF20296 :INT32) TLVLS)
    (COMMON-LISP:SETF (CFFI:MEM-REF CURLVL-REF20297 :INT32) CURLVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF CURPBM-REF20298 :INT32) CURPBM)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF20301 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF20302 :DOUBLE) RHO)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20314 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF20299 D) (Q-REF20300 Q)
                                            (INDXQ-REF20303 INDXQ)
                                            (QSTORE-REF20304 QSTORE)
                                            (QPTR-REF20305 QPTR)
                                            (PRMPTR-REF20306 PRMPTR)
                                            (PERM-REF20307 PERM)
                                            (GIVPTR-REF20308 GIVPTR)
                                            (GIVCOL-REF20309 GIVCOL)
                                            (GIVNUM-REF20310 GIVNUM)
                                            (WORK-REF20311 WORK)
                                            (RWORK-REF20312 RWORK)
                                            (IWORK-REF20313 IWORK))
      (%%ZLAED7 N-REF20293 CUTPNT-REF20294 QSIZ-REF20295 TLVLS-REF20296
                CURLVL-REF20297 CURPBM-REF20298 D-REF20299 Q-REF20300
                LDQ-REF20301 RHO-REF20302 INDXQ-REF20303 QSTORE-REF20304
                QPTR-REF20305 PRMPTR-REF20306 PERM-REF20307 GIVPTR-REF20308
                GIVCOL-REF20309 GIVNUM-REF20310 WORK-REF20311 RWORK-REF20312
                IWORK-REF20313 INFO-REF20314))))

(CFFI:DEFCFUN ("zlaed8_" %%ZLAED8 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (K :POINTER)
  (N :POINTER)
  (QSIZ :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (D :POINTER)
  (RHO :POINTER)
  (CUTPNT :POINTER)
  (Z :POINTER)
  (DLAMDA :POINTER)
  (Q2 :POINTER)
  (LDQ2 :POINTER)
  (W :POINTER)
  (INDXP :POINTER)
  (INDX :POINTER)
  (INDXQ :POINTER)
  (PERM :POINTER)
  (GIVPTR :POINTER)
  (GIVCOL :POINTER)
  (GIVNUM :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZLAED8
                   (K N QSIZ Q LDQ D RHO CUTPNT Z DLAMDA Q2 LDQ2 W INDXP INDX
                    INDXQ PERM GIVPTR GIVCOL GIVNUM INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLAED8)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) QSIZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RHO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CUTPNT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        DLAMDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Q2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        INDXP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        INDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        INDXQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        PERM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) GIVPTR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        GIVCOL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        GIVNUM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((K-REF20315 ':INT32) (N-REF20316 ':INT32)
                              (QSIZ-REF20317 ':INT32) (LDQ-REF20319 ':INT32)
                              (RHO-REF20321 ':DOUBLE) (CUTPNT-REF20322 ':INT32)
                              (LDQ2-REF20326 ':INT32) (GIVPTR-REF20332 ':INT32)
                              (INFO-REF20335 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF20315 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20316 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF QSIZ-REF20317 :INT32) QSIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF20319 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF20321 :DOUBLE) RHO)
    (COMMON-LISP:SETF (CFFI:MEM-REF CUTPNT-REF20322 :INT32) CUTPNT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ2-REF20326 :INT32) LDQ2)
    (COMMON-LISP:SETF (CFFI:MEM-REF GIVPTR-REF20332 :INT32) GIVPTR)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20335 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((Q-REF20318 Q) (D-REF20320 D)
                                            (Z-REF20323 Z)
                                            (DLAMDA-REF20324 DLAMDA)
                                            (Q2-REF20325 Q2) (W-REF20327 W)
                                            (INDXP-REF20328 INDXP)
                                            (INDX-REF20329 INDX)
                                            (INDXQ-REF20330 INDXQ)
                                            (PERM-REF20331 PERM)
                                            (GIVCOL-REF20333 GIVCOL)
                                            (GIVNUM-REF20334 GIVNUM))
      (%%ZLAED8 K-REF20315 N-REF20316 QSIZ-REF20317 Q-REF20318 LDQ-REF20319
                D-REF20320 RHO-REF20321 CUTPNT-REF20322 Z-REF20323
                DLAMDA-REF20324 Q2-REF20325 LDQ2-REF20326 W-REF20327
                INDXP-REF20328 INDX-REF20329 INDXQ-REF20330 PERM-REF20331
                GIVPTR-REF20332 GIVCOL-REF20333 GIVNUM-REF20334
                INFO-REF20335))))

(CFFI:DEFCFUN ("zlaein_" %%ZLAEIN :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (RIGHTV :POINTER)
  (NOINIT :POINTER)
  (N :POINTER)
  (H :POINTER)
  (LDH :POINTER)
  (W :POINTER)
  (V :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (RWORK :POINTER)
  (EPS3 :POINTER)
  (SMLNUM :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZLAEIN
                   (RIGHTV NOINIT N H LDH W V B LDB RWORK EPS3 SMLNUM INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLAEIN)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) RIGHTV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NOINIT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        H)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        V)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT EPS3)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SMLNUM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((RIGHTV-REF20336 ':INT32)
                              (NOINIT-REF20337 ':INT32) (N-REF20338 ':INT32)
                              (LDH-REF20340 ':INT32)
                              (W-REF20341
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (LDB-REF20344 ':INT32) (EPS3-REF20346 ':DOUBLE)
                              (SMLNUM-REF20347 ':DOUBLE)
                              (INFO-REF20348 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF RIGHTV-REF20336 :INT32) RIGHTV)
    (COMMON-LISP:SETF (CFFI:MEM-REF NOINIT-REF20337 :INT32) NOINIT)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20338 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF20340 :INT32) LDH)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              W-REF20341 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART W)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART W)))
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF20344 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF EPS3-REF20346 :DOUBLE) EPS3)
    (COMMON-LISP:SETF (CFFI:MEM-REF SMLNUM-REF20347 :DOUBLE) SMLNUM)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20348 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF20339 H) (V-REF20342 V)
                                            (B-REF20343 B)
                                            (RWORK-REF20345 RWORK))
      (%%ZLAEIN RIGHTV-REF20336 NOINIT-REF20337 N-REF20338 H-REF20339
                LDH-REF20340 W-REF20341 V-REF20342 B-REF20343 LDB-REF20344
                RWORK-REF20345 EPS3-REF20346 SMLNUM-REF20347 INFO-REF20348))))

(CFFI:DEFCFUN ("zlaesy_" %%ZLAESY :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (A :POINTER)
  (B :POINTER)
  (C :POINTER)
  (RT1 :POINTER)
  (RT2 :POINTER)
  (EVSCAL :POINTER)
  (CS1 :POINTER)
  (SN1 :POINTER))

(COMMON-LISP:DEFUN %ZLAESY (A B C RT1 RT2 EVSCAL CS1 SN1)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLAESY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) RT1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) RT2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) EVSCAL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) CS1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) SN1))
  (CFFI:WITH-FOREIGN-OBJECTS ((A-REF20349
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (B-REF20350
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (C-REF20351
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (RT1-REF20352
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (RT2-REF20353
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (EVSCAL-REF20354
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (CS1-REF20355
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (SN1-REF20356
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT))
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              A-REF20349 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART A)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART A)))
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              B-REF20350 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART B)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART B)))
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              C-REF20351 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART C)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART C)))
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              RT1-REF20352
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART RT1)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART RT1)))
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              RT2-REF20353
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART RT2)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART RT2)))
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              EVSCAL-REF20354
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART EVSCAL)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART EVSCAL)))
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              CS1-REF20355
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART CS1)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART CS1)))
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              SN1-REF20356
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART SN1)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART SN1)))
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%ZLAESY A-REF20349 B-REF20350 C-REF20351 RT1-REF20352 RT2-REF20353
                EVSCAL-REF20354 CS1-REF20355 SN1-REF20356))))

(CFFI:DEFCFUN ("zlaev2_" %%ZLAEV2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (A :POINTER)
  (B :POINTER)
  (C :POINTER)
  (RT1 :POINTER)
  (RT2 :POINTER)
  (CS1 :POINTER)
  (SN1 :POINTER))

(COMMON-LISP:DEFUN %ZLAEV2 (A B C RT1 RT2 CS1 SN1)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLAEV2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RT1)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RT2)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT CS1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) SN1))
  (CFFI:WITH-FOREIGN-OBJECTS ((A-REF20357
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (B-REF20358
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (C-REF20359
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (RT1-REF20360 ':DOUBLE) (RT2-REF20361 ':DOUBLE)
                              (CS1-REF20362 ':DOUBLE)
                              (SN1-REF20363
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT))
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              A-REF20357 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART A)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART A)))
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              B-REF20358 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART B)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART B)))
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              C-REF20359 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART C)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART C)))
    (COMMON-LISP:SETF (CFFI:MEM-REF RT1-REF20360 :DOUBLE) RT1)
    (COMMON-LISP:SETF (CFFI:MEM-REF RT2-REF20361 :DOUBLE) RT2)
    (COMMON-LISP:SETF (CFFI:MEM-REF CS1-REF20362 :DOUBLE) CS1)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              SN1-REF20363
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART SN1)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART SN1)))
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%ZLAEV2 A-REF20357 B-REF20358 C-REF20359 RT1-REF20360 RT2-REF20361
                CS1-REF20362 SN1-REF20363))))

(CFFI:DEFCFUN ("zlag2c_" %%ZLAG2C :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (SA :POINTER)
  (LDSA :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZLAG2C (M N A LDA SA LDSA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLAG2C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        SA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDSA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF20364 ':INT32) (N-REF20365 ':INT32)
                              (LDA-REF20367 ':INT32) (LDSA-REF20369 ':INT32)
                              (INFO-REF20370 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF20364 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20365 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20367 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDSA-REF20369 :INT32) LDSA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20370 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20366 A) (SA-REF20368 SA))
      (%%ZLAG2C M-REF20364 N-REF20365 A-REF20366 LDA-REF20367 SA-REF20368
                LDSA-REF20369 INFO-REF20370))))

(CFFI:DEFCFUN ("zlags2_" %%ZLAGS2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPPER :POINTER)
  (A1 :POINTER)
  (A2 :POINTER)
  (A3 :POINTER)
  (B1 :POINTER)
  (B2 :POINTER)
  (B3 :POINTER)
  (CSU :POINTER)
  (SNU :POINTER)
  (CSV :POINTER)
  (SNV :POINTER)
  (CSQ :POINTER)
  (SNQ :POINTER))

(COMMON-LISP:DEFUN %ZLAGS2 (UPPER A1 A2 A3 B1 B2 B3 CSU SNU CSV SNV CSQ SNQ)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLAGS2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) UPPER)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT A1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) A2)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT A3)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT B1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) B2)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT B3)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT CSU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) SNU)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT CSV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) SNV)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT CSQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) SNQ))
  (CFFI:WITH-FOREIGN-OBJECTS ((UPPER-REF20371 ':INT32) (A1-REF20372 ':DOUBLE)
                              (A2-REF20373
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (A3-REF20374 ':DOUBLE) (B1-REF20375 ':DOUBLE)
                              (B2-REF20376
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (B3-REF20377 ':DOUBLE) (CSU-REF20378 ':DOUBLE)
                              (SNU-REF20379
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (CSV-REF20380 ':DOUBLE)
                              (SNV-REF20381
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (CSQ-REF20382 ':DOUBLE)
                              (SNQ-REF20383
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF UPPER-REF20371 :INT32) UPPER)
    (COMMON-LISP:SETF (CFFI:MEM-REF A1-REF20372 :DOUBLE) A1)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              A2-REF20373
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART A2)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART A2)))
    (COMMON-LISP:SETF (CFFI:MEM-REF A3-REF20374 :DOUBLE) A3)
    (COMMON-LISP:SETF (CFFI:MEM-REF B1-REF20375 :DOUBLE) B1)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              B2-REF20376
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART B2)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART B2)))
    (COMMON-LISP:SETF (CFFI:MEM-REF B3-REF20377 :DOUBLE) B3)
    (COMMON-LISP:SETF (CFFI:MEM-REF CSU-REF20378 :DOUBLE) CSU)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              SNU-REF20379
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART SNU)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART SNU)))
    (COMMON-LISP:SETF (CFFI:MEM-REF CSV-REF20380 :DOUBLE) CSV)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              SNV-REF20381
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART SNV)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART SNV)))
    (COMMON-LISP:SETF (CFFI:MEM-REF CSQ-REF20382 :DOUBLE) CSQ)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              SNQ-REF20383
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART SNQ)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART SNQ)))
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%ZLAGS2 UPPER-REF20371 A1-REF20372 A2-REF20373 A3-REF20374 B1-REF20375
                B2-REF20376 B3-REF20377 CSU-REF20378 SNU-REF20379 CSV-REF20380
                SNV-REF20381 CSQ-REF20382 SNQ-REF20383))))

(CFFI:DEFCFUN ("zlagtm_" %%ZLAGTM :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (TRANS :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (ALPHA :POINTER)
  (DL :POINTER)
  (D :POINTER)
  (DU :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (BETA :POINTER)
  (B :POINTER)
  (LDB :POINTER))

(COMMON-LISP:DEFUN %ZLAGTM (TRANS N NRHS ALPHA DL D DU X LDX BETA B LDB)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLAGTM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        DL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        DU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20385 ':INT32) (NRHS-REF20386 ':INT32)
                              (ALPHA-REF20387 ':DOUBLE) (LDX-REF20392 ':INT32)
                              (BETA-REF20393 ':DOUBLE) (LDB-REF20395 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20385 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF20386 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF20387 :DOUBLE) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF20392 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF20393 :DOUBLE) BETA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF20395 :INT32) LDB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF20388 DL) (D-REF20389 D)
                                            (DU-REF20390 DU) (X-REF20391 X)
                                            (B-REF20394 B))
      (%%ZLAGTM TRANS N-REF20385 NRHS-REF20386 ALPHA-REF20387 DL-REF20388
                D-REF20389 DU-REF20390 X-REF20391 LDX-REF20392 BETA-REF20393
                B-REF20394 LDB-REF20395))))

(CFFI:DEFCFUN ("zlahef_" %%ZLAHEF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NB :POINTER)
  (KB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (W :POINTER)
  (LDW :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZLAHEF (UPLO N NB KB A LDA IPIV W LDW INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLAHEF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        W)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDW)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20397 ':INT32) (NB-REF20398 ':INT32)
                              (KB-REF20399 ':INT32) (LDA-REF20401 ':INT32)
                              (LDW-REF20404 ':INT32) (INFO-REF20405 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20397 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF20398 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF20399 :INT32) KB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20401 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDW-REF20404 :INT32) LDW)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20405 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20400 A) (IPIV-REF20402 IPIV)
                                            (W-REF20403 W))
      (%%ZLAHEF UPLO N-REF20397 NB-REF20398 KB-REF20399 A-REF20400 LDA-REF20401
                IPIV-REF20402 W-REF20403 LDW-REF20404 INFO-REF20405))))

(CFFI:DEFCFUN ("zlahef_aa_" %%ZLAHEF_AA :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (J1 :POINTER)
  (M :POINTER)
  (NB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (H :POINTER)
  (LDH :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %ZLAHEF_AA (UPLO J1 M NB A LDA IPIV H LDH WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLAHEF_AA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) J1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        H)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((J1-REF20407 ':INT32) (M-REF20408 ':INT32)
                              (NB-REF20409 ':INT32) (LDA-REF20411 ':INT32)
                              (LDH-REF20414 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF J1-REF20407 :INT32) J1)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF20408 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF20409 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20411 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF20414 :INT32) LDH)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20410 A) (IPIV-REF20412 IPIV)
                                            (H-REF20413 H) (WORK-REF20415 WORK))
      (%%ZLAHEF_AA UPLO J1-REF20407 M-REF20408 NB-REF20409 A-REF20410
                   LDA-REF20411 IPIV-REF20412 H-REF20413 LDH-REF20414
                   WORK-REF20415))))

(CFFI:DEFCFUN ("zlahef_rk_" %%ZLAHEF_RK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NB :POINTER)
  (KB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (E :POINTER)
  (IPIV :POINTER)
  (W :POINTER)
  (LDW :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZLAHEF_RK (UPLO N NB KB A LDA E IPIV W LDW INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLAHEF_RK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        W)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDW)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20417 ':INT32) (NB-REF20418 ':INT32)
                              (KB-REF20419 ':INT32) (LDA-REF20421 ':INT32)
                              (LDW-REF20425 ':INT32) (INFO-REF20426 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20417 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF20418 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF20419 :INT32) KB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20421 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDW-REF20425 :INT32) LDW)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20426 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20420 A) (E-REF20422 E)
                                            (IPIV-REF20423 IPIV) (W-REF20424 W))
      (%%ZLAHEF_RK UPLO N-REF20417 NB-REF20418 KB-REF20419 A-REF20420
                   LDA-REF20421 E-REF20422 IPIV-REF20423 W-REF20424
                   LDW-REF20425 INFO-REF20426))))

(CFFI:DEFCFUN ("zlahef_rook_" %%ZLAHEF_ROOK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NB :POINTER)
  (KB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (W :POINTER)
  (LDW :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZLAHEF_ROOK (UPLO N NB KB A LDA IPIV W LDW INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLAHEF_ROOK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        W)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDW)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20428 ':INT32) (NB-REF20429 ':INT32)
                              (KB-REF20430 ':INT32) (LDA-REF20432 ':INT32)
                              (LDW-REF20435 ':INT32) (INFO-REF20436 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20428 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF20429 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF20430 :INT32) KB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20432 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDW-REF20435 :INT32) LDW)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20436 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20431 A) (IPIV-REF20433 IPIV)
                                            (W-REF20434 W))
      (%%ZLAHEF_ROOK UPLO N-REF20428 NB-REF20429 KB-REF20430 A-REF20431
                     LDA-REF20432 IPIV-REF20433 W-REF20434 LDW-REF20435
                     INFO-REF20436))))

(CFFI:DEFCFUN ("zlahqr_" %%ZLAHQR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (WANTT :POINTER)
  (WANTZ :POINTER)
  (N :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (H :POINTER)
  (LDH :POINTER)
  (W :POINTER)
  (ILOZ :POINTER)
  (IHIZ :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZLAHQR (WANTT WANTZ N ILO IHI H LDH W ILOZ IHIZ Z LDZ INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLAHQR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        H)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        W)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILOZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHIZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((WANTT-REF20437 ':INT32) (WANTZ-REF20438 ':INT32)
                              (N-REF20439 ':INT32) (ILO-REF20440 ':INT32)
                              (IHI-REF20441 ':INT32) (LDH-REF20443 ':INT32)
                              (ILOZ-REF20445 ':INT32) (IHIZ-REF20446 ':INT32)
                              (LDZ-REF20448 ':INT32) (INFO-REF20449 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTT-REF20437 :INT32) WANTT)
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF20438 :INT32) WANTZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20439 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF20440 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF20441 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF20443 :INT32) LDH)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILOZ-REF20445 :INT32) ILOZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHIZ-REF20446 :INT32) IHIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF20448 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20449 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF20442 H) (W-REF20444 W)
                                            (Z-REF20447 Z))
      (%%ZLAHQR WANTT-REF20437 WANTZ-REF20438 N-REF20439 ILO-REF20440
                IHI-REF20441 H-REF20442 LDH-REF20443 W-REF20444 ILOZ-REF20445
                IHIZ-REF20446 Z-REF20447 LDZ-REF20448 INFO-REF20449))))

(CFFI:DEFCFUN ("zlahr2_" %%ZLAHR2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (K :POINTER)
  (NB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (Y :POINTER)
  (LDY :POINTER))

(COMMON-LISP:DEFUN %ZLAHR2 (N K NB A LDA TAU T LDT Y LDY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLAHR2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDY))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20450 ':INT32) (K-REF20451 ':INT32)
                              (NB-REF20452 ':INT32) (LDA-REF20454 ':INT32)
                              (LDT-REF20457 ':INT32) (LDY-REF20459 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20450 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF20451 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF20452 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20454 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF20457 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDY-REF20459 :INT32) LDY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20453 A) (TAU-REF20455 TAU)
                                            (T-REF20456 T) (Y-REF20458 Y))
      (%%ZLAHR2 N-REF20450 K-REF20451 NB-REF20452 A-REF20453 LDA-REF20454
                TAU-REF20455 T-REF20456 LDT-REF20457 Y-REF20458 LDY-REF20459))))

(CFFI:DEFCFUN ("zlaic1_" %%ZLAIC1 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOB :POINTER)
  (J :POINTER)
  (X :POINTER)
  (SEST :POINTER)
  (W :POINTER)
  (GAMMA :POINTER)
  (SESTPR :POINTER)
  (S :POINTER)
  (C :POINTER))

(COMMON-LISP:DEFUN %ZLAIC1 (JOB J X SEST W GAMMA SESTPR S C)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLAIC1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) JOB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) J)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SEST)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) GAMMA)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SESTPR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) C))
  (CFFI:WITH-FOREIGN-OBJECTS ((JOB-REF20460 ':INT32) (J-REF20461 ':INT32)
                              (SEST-REF20463 ':DOUBLE)
                              (GAMMA-REF20465
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (SESTPR-REF20466 ':DOUBLE)
                              (S-REF20467
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (C-REF20468
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF JOB-REF20460 :INT32) JOB)
    (COMMON-LISP:SETF (CFFI:MEM-REF J-REF20461 :INT32) J)
    (COMMON-LISP:SETF (CFFI:MEM-REF SEST-REF20463 :DOUBLE) SEST)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              GAMMA-REF20465
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART GAMMA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART GAMMA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF SESTPR-REF20466 :DOUBLE) SESTPR)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              S-REF20467 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART S)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART S)))
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              C-REF20468 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART C)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART C)))
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF20462 X) (W-REF20464 W))
      (%%ZLAIC1 JOB-REF20460 J-REF20461 X-REF20462 SEST-REF20463 W-REF20464
                GAMMA-REF20465 SESTPR-REF20466 S-REF20467 C-REF20468))))

(CFFI:DEFCFUN ("zlals0_" %%ZLALS0 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (ICOMPQ :POINTER)
  (NL :POINTER)
  (NR :POINTER)
  (SQRE :POINTER)
  (NRHS :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (BX :POINTER)
  (LDBX :POINTER)
  (PERM :POINTER)
  (GIVPTR :POINTER)
  (GIVCOL :POINTER)
  (LDGCOL :POINTER)
  (GIVNUM :POINTER)
  (LDGNUM :POINTER)
  (POLES :POINTER)
  (DIFL :POINTER)
  (DIFR :POINTER)
  (Z :POINTER)
  (K :POINTER)
  (C :POINTER)
  (S :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZLALS0
                   (ICOMPQ NL NR SQRE NRHS B LDB BX LDBX PERM GIVPTR GIVCOL
                    LDGCOL GIVNUM LDGNUM POLES DIFL DIFR Z K C S RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLALS0)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ICOMPQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SQRE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        BX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDBX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        PERM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) GIVPTR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        GIVCOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDGCOL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        GIVNUM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDGNUM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        POLES)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        DIFL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        DIFR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT C)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ICOMPQ-REF20469 ':INT32) (NL-REF20470 ':INT32)
                              (NR-REF20471 ':INT32) (SQRE-REF20472 ':INT32)
                              (NRHS-REF20473 ':INT32) (LDB-REF20475 ':INT32)
                              (LDBX-REF20477 ':INT32) (GIVPTR-REF20479 ':INT32)
                              (LDGCOL-REF20481 ':INT32)
                              (LDGNUM-REF20483 ':INT32) (K-REF20488 ':INT32)
                              (C-REF20489 ':DOUBLE) (S-REF20490 ':DOUBLE)
                              (INFO-REF20492 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ICOMPQ-REF20469 :INT32) ICOMPQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF NL-REF20470 :INT32) NL)
    (COMMON-LISP:SETF (CFFI:MEM-REF NR-REF20471 :INT32) NR)
    (COMMON-LISP:SETF (CFFI:MEM-REF SQRE-REF20472 :INT32) SQRE)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF20473 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF20475 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDBX-REF20477 :INT32) LDBX)
    (COMMON-LISP:SETF (CFFI:MEM-REF GIVPTR-REF20479 :INT32) GIVPTR)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDGCOL-REF20481 :INT32) LDGCOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDGNUM-REF20483 :INT32) LDGNUM)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF20488 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF C-REF20489 :DOUBLE) C)
    (COMMON-LISP:SETF (CFFI:MEM-REF S-REF20490 :DOUBLE) S)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20492 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((B-REF20474 B) (BX-REF20476 BX)
                                            (PERM-REF20478 PERM)
                                            (GIVCOL-REF20480 GIVCOL)
                                            (GIVNUM-REF20482 GIVNUM)
                                            (POLES-REF20484 POLES)
                                            (DIFL-REF20485 DIFL)
                                            (DIFR-REF20486 DIFR) (Z-REF20487 Z)
                                            (RWORK-REF20491 RWORK))
      (%%ZLALS0 ICOMPQ-REF20469 NL-REF20470 NR-REF20471 SQRE-REF20472
                NRHS-REF20473 B-REF20474 LDB-REF20475 BX-REF20476 LDBX-REF20477
                PERM-REF20478 GIVPTR-REF20479 GIVCOL-REF20480 LDGCOL-REF20481
                GIVNUM-REF20482 LDGNUM-REF20483 POLES-REF20484 DIFL-REF20485
                DIFR-REF20486 Z-REF20487 K-REF20488 C-REF20489 S-REF20490
                RWORK-REF20491 INFO-REF20492))))

(CFFI:DEFCFUN ("zlalsa_" %%ZLALSA :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (ICOMPQ :POINTER)
  (SMLSIZ :POINTER)
  (N :POINTER)
  (NRHS :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (BX :POINTER)
  (LDBX :POINTER)
  (U :POINTER)
  (LDU :POINTER)
  (VT :POINTER)
  (K :POINTER)
  (DIFL :POINTER)
  (DIFR :POINTER)
  (Z :POINTER)
  (POLES :POINTER)
  (GIVPTR :POINTER)
  (GIVCOL :POINTER)
  (LDGCOL :POINTER)
  (PERM :POINTER)
  (GIVNUM :POINTER)
  (C :POINTER)
  (S :POINTER)
  (RWORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZLALSA
                   (ICOMPQ SMLSIZ N NRHS B LDB BX LDBX U LDU VT K DIFL DIFR Z
                    POLES GIVPTR GIVCOL LDGCOL PERM GIVNUM C S RWORK IWORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLALSA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ICOMPQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SMLSIZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        BX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDBX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) U)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        DIFL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        DIFR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        POLES)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        GIVPTR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        GIVCOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDGCOL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        PERM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        GIVNUM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ICOMPQ-REF20493 ':INT32)
                              (SMLSIZ-REF20494 ':INT32) (N-REF20495 ':INT32)
                              (NRHS-REF20496 ':INT32) (LDB-REF20498 ':INT32)
                              (LDBX-REF20500 ':INT32) (LDU-REF20502 ':INT32)
                              (LDGCOL-REF20511 ':INT32) (INFO-REF20518 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ICOMPQ-REF20493 :INT32) ICOMPQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF SMLSIZ-REF20494 :INT32) SMLSIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20495 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF20496 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF20498 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDBX-REF20500 :INT32) LDBX)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF20502 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDGCOL-REF20511 :INT32) LDGCOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20518 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((B-REF20497 B) (BX-REF20499 BX)
                                            (U-REF20501 U) (VT-REF20503 VT)
                                            (K-REF20504 K) (DIFL-REF20505 DIFL)
                                            (DIFR-REF20506 DIFR) (Z-REF20507 Z)
                                            (POLES-REF20508 POLES)
                                            (GIVPTR-REF20509 GIVPTR)
                                            (GIVCOL-REF20510 GIVCOL)
                                            (PERM-REF20512 PERM)
                                            (GIVNUM-REF20513 GIVNUM)
                                            (C-REF20514 C) (S-REF20515 S)
                                            (RWORK-REF20516 RWORK)
                                            (IWORK-REF20517 IWORK))
      (%%ZLALSA ICOMPQ-REF20493 SMLSIZ-REF20494 N-REF20495 NRHS-REF20496
                B-REF20497 LDB-REF20498 BX-REF20499 LDBX-REF20500 U-REF20501
                LDU-REF20502 VT-REF20503 K-REF20504 DIFL-REF20505 DIFR-REF20506
                Z-REF20507 POLES-REF20508 GIVPTR-REF20509 GIVCOL-REF20510
                LDGCOL-REF20511 PERM-REF20512 GIVNUM-REF20513 C-REF20514
                S-REF20515 RWORK-REF20516 IWORK-REF20517 INFO-REF20518))))

(CFFI:DEFCFUN ("zlalsd_" %%ZLALSD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (SMLSIZ :POINTER)
  (N :POINTER)
  (NRHS :POINTER)
  (D :POINTER)
  (E :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (RCOND :POINTER)
  (RANK :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZLALSD
                   (UPLO SMLSIZ N NRHS D E B LDB RCOND RANK WORK RWORK IWORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLALSD)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SMLSIZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) RANK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((SMLSIZ-REF20520 ':INT32) (N-REF20521 ':INT32)
                              (NRHS-REF20522 ':INT32) (LDB-REF20526 ':INT32)
                              (RCOND-REF20527 ':DOUBLE) (RANK-REF20528 ':INT32)
                              (INFO-REF20532 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF SMLSIZ-REF20520 :INT32) SMLSIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20521 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF20522 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF20526 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF20527 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF RANK-REF20528 :INT32) RANK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20532 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF20523 D) (E-REF20524 E)
                                            (B-REF20525 B) (WORK-REF20529 WORK)
                                            (RWORK-REF20530 RWORK)
                                            (IWORK-REF20531 IWORK))
      (%%ZLALSD UPLO SMLSIZ-REF20520 N-REF20521 NRHS-REF20522 D-REF20523
                E-REF20524 B-REF20525 LDB-REF20526 RCOND-REF20527 RANK-REF20528
                WORK-REF20529 RWORK-REF20530 IWORK-REF20531 INFO-REF20532))))

(CFFI:DEFCFUN ("zlamswlq_" %%ZLAMSWLQ :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (MB :POINTER)
  (NB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZLAMSWLQ
                   (SIDE TRANS M N K MB NB A LDA T LDT C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLAMSWLQ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF20535 ':INT32) (N-REF20536 ':INT32)
                              (K-REF20537 ':INT32) (MB-REF20538 ':INT32)
                              (NB-REF20539 ':INT32) (LDA-REF20541 ':INT32)
                              (LDT-REF20543 ':INT32) (LDC-REF20545 ':INT32)
                              (LWORK-REF20547 ':INT32) (INFO-REF20548 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF20535 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20536 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF20537 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF20538 :INT32) MB)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF20539 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20541 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF20543 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF20545 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF20547 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20548 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20540 A) (T-REF20542 T)
                                            (C-REF20544 C) (WORK-REF20546 WORK))
      (%%ZLAMSWLQ SIDE TRANS M-REF20535 N-REF20536 K-REF20537 MB-REF20538
                  NB-REF20539 A-REF20540 LDA-REF20541 T-REF20542 LDT-REF20543
                  C-REF20544 LDC-REF20545 WORK-REF20546 LWORK-REF20547
                  INFO-REF20548))))

(CFFI:DEFCFUN ("zlamtsqr_" %%ZLAMTSQR :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (MB :POINTER)
  (NB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZLAMTSQR
                   (SIDE TRANS M N K MB NB A LDA T LDT C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLAMTSQR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF20551 ':INT32) (N-REF20552 ':INT32)
                              (K-REF20553 ':INT32) (MB-REF20554 ':INT32)
                              (NB-REF20555 ':INT32) (LDA-REF20557 ':INT32)
                              (LDT-REF20559 ':INT32) (LDC-REF20561 ':INT32)
                              (LWORK-REF20563 ':INT32) (INFO-REF20564 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF20551 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20552 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF20553 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF20554 :INT32) MB)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF20555 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20557 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF20559 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF20561 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF20563 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20564 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20556 A) (T-REF20558 T)
                                            (C-REF20560 C) (WORK-REF20562 WORK))
      (%%ZLAMTSQR SIDE TRANS M-REF20551 N-REF20552 K-REF20553 MB-REF20554
                  NB-REF20555 A-REF20556 LDA-REF20557 T-REF20558 LDT-REF20559
                  C-REF20560 LDC-REF20561 WORK-REF20562 LWORK-REF20563
                  INFO-REF20564))))

(CFFI:DEFCFUN ("zlangb_" %%ZLANGB :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :DOUBLE
  (NORM :STRING)
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %ZLANGB (NORM N KL KU AB LDAB WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLANGB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20566 ':INT32) (KL-REF20567 ':INT32)
                              (KU-REF20568 ':INT32) (LDAB-REF20570 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20566 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF20567 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF20568 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF20570 :INT32) LDAB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF20569 AB)
                                            (WORK-REF20571 WORK))
      (%%ZLANGB NORM N-REF20566 KL-REF20567 KU-REF20568 AB-REF20569
                LDAB-REF20570 WORK-REF20571))))

(CFFI:DEFCFUN ("zlange_" %%ZLANGE :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :DOUBLE
  (NORM :STRING)
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %ZLANGE (NORM M N A LDA WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLANGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF20573 ':INT32) (N-REF20574 ':INT32)
                              (LDA-REF20576 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF20573 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20574 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20576 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20575 A) (WORK-REF20577 WORK))
      (%%ZLANGE NORM M-REF20573 N-REF20574 A-REF20575 LDA-REF20576
                WORK-REF20577))))

(CFFI:DEFCFUN ("zlangt_" %%ZLANGT :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :DOUBLE
  (NORM :STRING)
  (N :POINTER)
  (DL :POINTER)
  (D :POINTER)
  (DU :POINTER))

(COMMON-LISP:DEFUN %ZLANGT (NORM N DL D DU)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLANGT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        DL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        DU))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20579 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20579 :INT32) N)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF20580 DL) (D-REF20581 D)
                                            (DU-REF20582 DU))
      (%%ZLANGT NORM N-REF20579 DL-REF20580 D-REF20581 DU-REF20582))))

(CFFI:DEFCFUN ("zlanhb_" %%ZLANHB :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :DOUBLE
  (NORM :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (K :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %ZLANHB (NORM UPLO N K AB LDAB WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLANHB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20585 ':INT32) (K-REF20586 ':INT32)
                              (LDAB-REF20588 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20585 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF20586 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF20588 :INT32) LDAB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF20587 AB)
                                            (WORK-REF20589 WORK))
      (%%ZLANHB NORM UPLO N-REF20585 K-REF20586 AB-REF20587 LDAB-REF20588
                WORK-REF20589))))

(CFFI:DEFCFUN ("zlanhe_" %%ZLANHE :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :DOUBLE
  (NORM :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %ZLANHE (NORM UPLO N A LDA WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLANHE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20592 ':INT32) (LDA-REF20594 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20592 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20594 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20593 A) (WORK-REF20595 WORK))
      (%%ZLANHE NORM UPLO N-REF20592 A-REF20593 LDA-REF20594 WORK-REF20595))))

(COMMON-LISP:DECLAIM
 (COMMON-LISP:NOTINLINE %%XERBLA %XERBLA %%XERBLA_ARRAY %XERBLA_ARRAY %%ZBBCSD
  %ZBBCSD %%ZBDSQR %ZBDSQR %%ZCGESV %ZCGESV %%ZCPOSV %ZCPOSV %%ZDRSCL %ZDRSCL
  %%ZGBBRD %ZGBBRD %%ZGBCON %ZGBCON %%ZGBEQU %ZGBEQU %%ZGBEQUB %ZGBEQUB
  %%ZGBRFS %ZGBRFS %%ZGBRFSX %ZGBRFSX %%ZGBSV %ZGBSV %%ZGBSVX %ZGBSVX %%ZGBSVXX
  %ZGBSVXX %%ZGBTF2 %ZGBTF2 %%ZGBTRF %ZGBTRF %%ZGBTRS %ZGBTRS %%ZGEBAK %ZGEBAK
  %%ZGEBAL %ZGEBAL %%ZGEBD2 %ZGEBD2 %%ZGEBRD %ZGEBRD %%ZGECON %ZGECON %%ZGEEQU
  %ZGEEQU %%ZGEEQUB %ZGEEQUB %%ZGEES %ZGEES %%ZGEESX %ZGEESX %%ZGEEV %ZGEEV
  %%ZGEEVX %ZGEEVX %%ZGEHD2 %ZGEHD2 %%ZGEHRD %ZGEHRD %%ZGEJSV %ZGEJSV %%ZGELQ
  %ZGELQ %%ZGELQ2 %ZGELQ2 %%ZGELQF %ZGELQF %%ZGELQT %ZGELQT %%ZGELQT3 %ZGELQT3
  %%ZGELS %ZGELS %%ZGELSD %ZGELSD %%ZGELSS %ZGELSS %%ZGELSY %ZGELSY %%ZGEMLQ
  %ZGEMLQ %%ZGEMLQT %ZGEMLQT %%ZGEMQR %ZGEMQR %%ZGEMQRT %ZGEMQRT %%ZGEQL2
  %ZGEQL2 %%ZGEQLF %ZGEQLF %%ZGEQP3 %ZGEQP3 %%ZGEQR %ZGEQR %%ZGEQR2 %ZGEQR2
  %%ZGEQR2P %ZGEQR2P %%ZGEQRF %ZGEQRF %%ZGEQRFP %ZGEQRFP %%ZGEQRT %ZGEQRT
  %%ZGEQRT2 %ZGEQRT2 %%ZGEQRT3 %ZGEQRT3 %%ZGERFS %ZGERFS %%ZGERFSX %ZGERFSX
  %%ZGERQ2 %ZGERQ2 %%ZGERQF %ZGERQF %%ZGESC2 %ZGESC2 %%ZGESDD %ZGESDD %%ZGESV
  %ZGESV %%ZGESVD %ZGESVD %%ZGESVDQ %ZGESVDQ %%ZGESVDX %ZGESVDX %%ZGESVJ
  %ZGESVJ %%ZGESVX %ZGESVX %%ZGESVXX %ZGESVXX %%ZGETC2 %ZGETC2 %%ZGETF2 %ZGETF2
  %%ZGETRF %ZGETRF %%ZGETRF2 %ZGETRF2 %%ZGETRI %ZGETRI %%ZGETRS %ZGETRS
  %%ZGETSLS %ZGETSLS %%ZGGBAK %ZGGBAK %%ZGGBAL %ZGGBAL %%ZGGES %ZGGES %%ZGGES3
  %ZGGES3 %%ZGGESX %ZGGESX %%ZGGEV %ZGGEV %%ZGGEV3 %ZGGEV3 %%ZGGEVX %ZGGEVX
  %%ZGGGLM %ZGGGLM %%ZGGHD3 %ZGGHD3 %%ZGGHRD %ZGGHRD %%ZGGLSE %ZGGLSE %%ZGGQRF
  %ZGGQRF %%ZGGRQF %ZGGRQF %%ZGGSVD3 %ZGGSVD3 %%ZGGSVP3 %ZGGSVP3 %%ZGSVJ0
  %ZGSVJ0 %%ZGSVJ1 %ZGSVJ1 %%ZGTCON %ZGTCON %%ZGTRFS %ZGTRFS %%ZGTSV %ZGTSV
  %%ZGTSVX %ZGTSVX %%ZGTTRF %ZGTTRF %%ZGTTRS %ZGTTRS %%ZGTTS2 %ZGTTS2
  %%ZHB2ST_KERNELS %ZHB2ST_KERNELS %%ZHBEV %ZHBEV %%ZHBEV_2STAGE %ZHBEV_2STAGE
  %%ZHBEVD %ZHBEVD %%ZHBEVD_2STAGE %ZHBEVD_2STAGE %%ZHBEVX %ZHBEVX
  %%ZHBEVX_2STAGE %ZHBEVX_2STAGE %%ZHBGST %ZHBGST %%ZHBGV %ZHBGV %%ZHBGVD
  %ZHBGVD %%ZHBGVX %ZHBGVX %%ZHBTRD %ZHBTRD %%ZHECON %ZHECON %%ZHECON_3
  %ZHECON_3 %%ZHECON_ROOK %ZHECON_ROOK %%ZHEEQUB %ZHEEQUB %%ZHEEV %ZHEEV
  %%ZHEEV_2STAGE %ZHEEV_2STAGE %%ZHEEVD %ZHEEVD %%ZHEEVD_2STAGE %ZHEEVD_2STAGE
  %%ZHEEVR %ZHEEVR %%ZHEEVR_2STAGE %ZHEEVR_2STAGE %%ZHEEVX %ZHEEVX
  %%ZHEEVX_2STAGE %ZHEEVX_2STAGE %%ZHEGS2 %ZHEGS2 %%ZHEGST %ZHEGST %%ZHEGV
  %ZHEGV %%ZHEGV_2STAGE %ZHEGV_2STAGE %%ZHEGVD %ZHEGVD %%ZHEGVX %ZHEGVX
  %%ZHERFS %ZHERFS %%ZHERFSX %ZHERFSX %%ZHESV %ZHESV %%ZHESV_AA %ZHESV_AA
  %%ZHESV_AA_2STAGE %ZHESV_AA_2STAGE %%ZHESV_RK %ZHESV_RK %%ZHESV_ROOK
  %ZHESV_ROOK %%ZHESVX %ZHESVX %%ZHESVXX %ZHESVXX %%ZHESWAPR %ZHESWAPR %%ZHETD2
  %ZHETD2 %%ZHETF2 %ZHETF2 %%ZHETF2_RK %ZHETF2_RK %%ZHETF2_ROOK %ZHETF2_ROOK
  %%ZHETRD %ZHETRD %%ZHETRD_2STAGE %ZHETRD_2STAGE %%ZHETRD_HE2HB %ZHETRD_HE2HB
  %%ZHETRF %ZHETRF %%ZHETRF_AA %ZHETRF_AA %%ZHETRF_AA_2STAGE %ZHETRF_AA_2STAGE
  %%ZHETRF_RK %ZHETRF_RK %%ZHETRF_ROOK %ZHETRF_ROOK %%ZHETRI %ZHETRI %%ZHETRI2
  %ZHETRI2 %%ZHETRI2X %ZHETRI2X %%ZHETRI_3 %ZHETRI_3 %%ZHETRI_3X %ZHETRI_3X
  %%ZHETRI_ROOK %ZHETRI_ROOK %%ZHETRS %ZHETRS %%ZHETRS2 %ZHETRS2 %%ZHETRS_3
  %ZHETRS_3 %%ZHETRS_AA %ZHETRS_AA %%ZHETRS_AA_2STAGE %ZHETRS_AA_2STAGE
  %%ZHETRS_ROOK %ZHETRS_ROOK %%ZHFRK %ZHFRK %%ZHGEQZ %ZHGEQZ %%ZHPCON %ZHPCON
  %%ZHPEV %ZHPEV %%ZHPEVD %ZHPEVD %%ZHPEVX %ZHPEVX %%ZHPGST %ZHPGST %%ZHPGV
  %ZHPGV %%ZHPGVD %ZHPGVD %%ZHPGVX %ZHPGVX %%ZHPRFS %ZHPRFS %%ZHPSV %ZHPSV
  %%ZHPSVX %ZHPSVX %%ZHPTRD %ZHPTRD %%ZHPTRF %ZHPTRF %%ZHPTRI %ZHPTRI %%ZHPTRS
  %ZHPTRS %%ZHSEIN %ZHSEIN %%ZHSEQR %ZHSEQR %%ZLA_GBAMV %ZLA_GBAMV
  %%ZLA_GBRCOND_C %ZLA_GBRCOND_C %%ZLA_GBRCOND_X %ZLA_GBRCOND_X
  %%ZLA_GBRFSX_EXTENDED %ZLA_GBRFSX_EXTENDED %%ZLA_GBRPVGRW %ZLA_GBRPVGRW
  %%ZLA_GEAMV %ZLA_GEAMV %%ZLA_GERCOND_C %ZLA_GERCOND_C %%ZLA_GERCOND_X
  %ZLA_GERCOND_X %%ZLA_GERFSX_EXTENDED %ZLA_GERFSX_EXTENDED %%ZLA_GERPVGRW
  %ZLA_GERPVGRW %%ZLA_HEAMV %ZLA_HEAMV %%ZLA_HERCOND_C %ZLA_HERCOND_C
  %%ZLA_HERCOND_X %ZLA_HERCOND_X %%ZLA_HERFSX_EXTENDED %ZLA_HERFSX_EXTENDED
  %%ZLA_HERPVGRW %ZLA_HERPVGRW %%ZLA_LIN_BERR %ZLA_LIN_BERR %%ZLA_PORCOND_C
  %ZLA_PORCOND_C %%ZLA_PORCOND_X %ZLA_PORCOND_X %%ZLA_PORFSX_EXTENDED
  %ZLA_PORFSX_EXTENDED %%ZLA_PORPVGRW %ZLA_PORPVGRW %%ZLA_SYAMV %ZLA_SYAMV
  %%ZLA_SYRCOND_C %ZLA_SYRCOND_C %%ZLA_SYRCOND_X %ZLA_SYRCOND_X
  %%ZLA_SYRFSX_EXTENDED %ZLA_SYRFSX_EXTENDED %%ZLA_SYRPVGRW %ZLA_SYRPVGRW
  %%ZLA_WWADDW %ZLA_WWADDW %%ZLABRD %ZLABRD %%ZLACGV %ZLACGV %%ZLACN2 %ZLACN2
  %%ZLACON %ZLACON %%ZLACP2 %ZLACP2 %%ZLACPY %ZLACPY %%ZLACRM %ZLACRM %%ZLACRT
  %ZLACRT %%ZLADIV %ZLADIV %%ZLAED0 %ZLAED0 %%ZLAED7 %ZLAED7 %%ZLAED8 %ZLAED8
  %%ZLAEIN %ZLAEIN %%ZLAESY %ZLAESY %%ZLAEV2 %ZLAEV2 %%ZLAG2C %ZLAG2C %%ZLAGS2
  %ZLAGS2 %%ZLAGTM %ZLAGTM %%ZLAHEF %ZLAHEF %%ZLAHEF_AA %ZLAHEF_AA %%ZLAHEF_RK
  %ZLAHEF_RK %%ZLAHEF_ROOK %ZLAHEF_ROOK %%ZLAHQR %ZLAHQR %%ZLAHR2 %ZLAHR2
  %%ZLAIC1 %ZLAIC1 %%ZLALS0 %ZLALS0 %%ZLALSA %ZLALSA %%ZLALSD %ZLALSD
  %%ZLAMSWLQ %ZLAMSWLQ %%ZLAMTSQR %ZLAMTSQR %%ZLANGB %ZLANGB %%ZLANGE %ZLANGE
  %%ZLANGT %ZLANGT %%ZLANHB %ZLANHB %%ZLANHE %ZLANHE))

(COMMON-LISP:SETF (COMMON-LISP:GETF
                   (COMMON-LISP:SYMBOL-PLIST
                    'MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
                   ':MAGICL)
                    '(("XERBLA" "xerbla_" %%XERBLA %XERBLA)
                      ("XERBLA_ARRAY" "xerbla_array_" %%XERBLA_ARRAY
                       %XERBLA_ARRAY)
                      ("ZBBCSD" "zbbcsd_" %%ZBBCSD %ZBBCSD)
                      ("ZBDSQR" "zbdsqr_" %%ZBDSQR %ZBDSQR)
                      ("ZCGESV" "zcgesv_" %%ZCGESV %ZCGESV)
                      ("ZCPOSV" "zcposv_" %%ZCPOSV %ZCPOSV)
                      ("ZDRSCL" "zdrscl_" %%ZDRSCL %ZDRSCL)
                      ("ZGBBRD" "zgbbrd_" %%ZGBBRD %ZGBBRD)
                      ("ZGBCON" "zgbcon_" %%ZGBCON %ZGBCON)
                      ("ZGBEQU" "zgbequ_" %%ZGBEQU %ZGBEQU)
                      ("ZGBEQUB" "zgbequb_" %%ZGBEQUB %ZGBEQUB)
                      ("ZGBRFS" "zgbrfs_" %%ZGBRFS %ZGBRFS)
                      ("ZGBRFSX" "zgbrfsx_" %%ZGBRFSX %ZGBRFSX)
                      ("ZGBSV" "zgbsv_" %%ZGBSV %ZGBSV)
                      ("ZGBSVX" "zgbsvx_" %%ZGBSVX %ZGBSVX)
                      ("ZGBSVXX" "zgbsvxx_" %%ZGBSVXX %ZGBSVXX)
                      ("ZGBTF2" "zgbtf2_" %%ZGBTF2 %ZGBTF2)
                      ("ZGBTRF" "zgbtrf_" %%ZGBTRF %ZGBTRF)
                      ("ZGBTRS" "zgbtrs_" %%ZGBTRS %ZGBTRS)
                      ("ZGEBAK" "zgebak_" %%ZGEBAK %ZGEBAK)
                      ("ZGEBAL" "zgebal_" %%ZGEBAL %ZGEBAL)
                      ("ZGEBD2" "zgebd2_" %%ZGEBD2 %ZGEBD2)
                      ("ZGEBRD" "zgebrd_" %%ZGEBRD %ZGEBRD)
                      ("ZGECON" "zgecon_" %%ZGECON %ZGECON)
                      ("ZGEEQU" "zgeequ_" %%ZGEEQU %ZGEEQU)
                      ("ZGEEQUB" "zgeequb_" %%ZGEEQUB %ZGEEQUB)
                      ("ZGEES" "zgees_" %%ZGEES %ZGEES)
                      ("ZGEESX" "zgeesx_" %%ZGEESX %ZGEESX)
                      ("ZGEEV" "zgeev_" %%ZGEEV %ZGEEV)
                      ("ZGEEVX" "zgeevx_" %%ZGEEVX %ZGEEVX)
                      ("ZGEHD2" "zgehd2_" %%ZGEHD2 %ZGEHD2)
                      ("ZGEHRD" "zgehrd_" %%ZGEHRD %ZGEHRD)
                      ("ZGEJSV" "zgejsv_" %%ZGEJSV %ZGEJSV)
                      ("ZGELQ" "zgelq_" %%ZGELQ %ZGELQ)
                      ("ZGELQ2" "zgelq2_" %%ZGELQ2 %ZGELQ2)
                      ("ZGELQF" "zgelqf_" %%ZGELQF %ZGELQF)
                      ("ZGELQT" "zgelqt_" %%ZGELQT %ZGELQT)
                      ("ZGELQT3" "zgelqt3_" %%ZGELQT3 %ZGELQT3)
                      ("ZGELS" "zgels_" %%ZGELS %ZGELS)
                      ("ZGELSD" "zgelsd_" %%ZGELSD %ZGELSD)
                      ("ZGELSS" "zgelss_" %%ZGELSS %ZGELSS)
                      ("ZGELSY" "zgelsy_" %%ZGELSY %ZGELSY)
                      ("ZGEMLQ" "zgemlq_" %%ZGEMLQ %ZGEMLQ)
                      ("ZGEMLQT" "zgemlqt_" %%ZGEMLQT %ZGEMLQT)
                      ("ZGEMQR" "zgemqr_" %%ZGEMQR %ZGEMQR)
                      ("ZGEMQRT" "zgemqrt_" %%ZGEMQRT %ZGEMQRT)
                      ("ZGEQL2" "zgeql2_" %%ZGEQL2 %ZGEQL2)
                      ("ZGEQLF" "zgeqlf_" %%ZGEQLF %ZGEQLF)
                      ("ZGEQP3" "zgeqp3_" %%ZGEQP3 %ZGEQP3)
                      ("ZGEQR" "zgeqr_" %%ZGEQR %ZGEQR)
                      ("ZGEQR2" "zgeqr2_" %%ZGEQR2 %ZGEQR2)
                      ("ZGEQR2P" "zgeqr2p_" %%ZGEQR2P %ZGEQR2P)
                      ("ZGEQRF" "zgeqrf_" %%ZGEQRF %ZGEQRF)
                      ("ZGEQRFP" "zgeqrfp_" %%ZGEQRFP %ZGEQRFP)
                      ("ZGEQRT" "zgeqrt_" %%ZGEQRT %ZGEQRT)
                      ("ZGEQRT2" "zgeqrt2_" %%ZGEQRT2 %ZGEQRT2)
                      ("ZGEQRT3" "zgeqrt3_" %%ZGEQRT3 %ZGEQRT3)
                      ("ZGERFS" "zgerfs_" %%ZGERFS %ZGERFS)
                      ("ZGERFSX" "zgerfsx_" %%ZGERFSX %ZGERFSX)
                      ("ZGERQ2" "zgerq2_" %%ZGERQ2 %ZGERQ2)
                      ("ZGERQF" "zgerqf_" %%ZGERQF %ZGERQF)
                      ("ZGESC2" "zgesc2_" %%ZGESC2 %ZGESC2)
                      ("ZGESDD" "zgesdd_" %%ZGESDD %ZGESDD)
                      ("ZGESV" "zgesv_" %%ZGESV %ZGESV)
                      ("ZGESVD" "zgesvd_" %%ZGESVD %ZGESVD)
                      ("ZGESVDQ" "zgesvdq_" %%ZGESVDQ %ZGESVDQ)
                      ("ZGESVDX" "zgesvdx_" %%ZGESVDX %ZGESVDX)
                      ("ZGESVJ" "zgesvj_" %%ZGESVJ %ZGESVJ)
                      ("ZGESVX" "zgesvx_" %%ZGESVX %ZGESVX)
                      ("ZGESVXX" "zgesvxx_" %%ZGESVXX %ZGESVXX)
                      ("ZGETC2" "zgetc2_" %%ZGETC2 %ZGETC2)
                      ("ZGETF2" "zgetf2_" %%ZGETF2 %ZGETF2)
                      ("ZGETRF" "zgetrf_" %%ZGETRF %ZGETRF)
                      ("ZGETRF2" "zgetrf2_" %%ZGETRF2 %ZGETRF2)
                      ("ZGETRI" "zgetri_" %%ZGETRI %ZGETRI)
                      ("ZGETRS" "zgetrs_" %%ZGETRS %ZGETRS)
                      ("ZGETSLS" "zgetsls_" %%ZGETSLS %ZGETSLS)
                      ("ZGGBAK" "zggbak_" %%ZGGBAK %ZGGBAK)
                      ("ZGGBAL" "zggbal_" %%ZGGBAL %ZGGBAL)
                      ("ZGGES" "zgges_" %%ZGGES %ZGGES)
                      ("ZGGES3" "zgges3_" %%ZGGES3 %ZGGES3)
                      ("ZGGESX" "zggesx_" %%ZGGESX %ZGGESX)
                      ("ZGGEV" "zggev_" %%ZGGEV %ZGGEV)
                      ("ZGGEV3" "zggev3_" %%ZGGEV3 %ZGGEV3)
                      ("ZGGEVX" "zggevx_" %%ZGGEVX %ZGGEVX)
                      ("ZGGGLM" "zggglm_" %%ZGGGLM %ZGGGLM)
                      ("ZGGHD3" "zgghd3_" %%ZGGHD3 %ZGGHD3)
                      ("ZGGHRD" "zgghrd_" %%ZGGHRD %ZGGHRD)
                      ("ZGGLSE" "zgglse_" %%ZGGLSE %ZGGLSE)
                      ("ZGGQRF" "zggqrf_" %%ZGGQRF %ZGGQRF)
                      ("ZGGRQF" "zggrqf_" %%ZGGRQF %ZGGRQF)
                      ("ZGGSVD3" "zggsvd3_" %%ZGGSVD3 %ZGGSVD3)
                      ("ZGGSVP3" "zggsvp3_" %%ZGGSVP3 %ZGGSVP3)
                      ("ZGSVJ0" "zgsvj0_" %%ZGSVJ0 %ZGSVJ0)
                      ("ZGSVJ1" "zgsvj1_" %%ZGSVJ1 %ZGSVJ1)
                      ("ZGTCON" "zgtcon_" %%ZGTCON %ZGTCON)
                      ("ZGTRFS" "zgtrfs_" %%ZGTRFS %ZGTRFS)
                      ("ZGTSV" "zgtsv_" %%ZGTSV %ZGTSV)
                      ("ZGTSVX" "zgtsvx_" %%ZGTSVX %ZGTSVX)
                      ("ZGTTRF" "zgttrf_" %%ZGTTRF %ZGTTRF)
                      ("ZGTTRS" "zgttrs_" %%ZGTTRS %ZGTTRS)
                      ("ZGTTS2" "zgtts2_" %%ZGTTS2 %ZGTTS2)
                      ("ZHB2ST_KERNELS" "zhb2st_kernels_" %%ZHB2ST_KERNELS
                       %ZHB2ST_KERNELS)
                      ("ZHBEV" "zhbev_" %%ZHBEV %ZHBEV)
                      ("ZHBEV_2STAGE" "zhbev_2stage_" %%ZHBEV_2STAGE
                       %ZHBEV_2STAGE)
                      ("ZHBEVD" "zhbevd_" %%ZHBEVD %ZHBEVD)
                      ("ZHBEVD_2STAGE" "zhbevd_2stage_" %%ZHBEVD_2STAGE
                       %ZHBEVD_2STAGE)
                      ("ZHBEVX" "zhbevx_" %%ZHBEVX %ZHBEVX)
                      ("ZHBEVX_2STAGE" "zhbevx_2stage_" %%ZHBEVX_2STAGE
                       %ZHBEVX_2STAGE)
                      ("ZHBGST" "zhbgst_" %%ZHBGST %ZHBGST)
                      ("ZHBGV" "zhbgv_" %%ZHBGV %ZHBGV)
                      ("ZHBGVD" "zhbgvd_" %%ZHBGVD %ZHBGVD)
                      ("ZHBGVX" "zhbgvx_" %%ZHBGVX %ZHBGVX)
                      ("ZHBTRD" "zhbtrd_" %%ZHBTRD %ZHBTRD)
                      ("ZHECON" "zhecon_" %%ZHECON %ZHECON)
                      ("ZHECON_3" "zhecon_3_" %%ZHECON_3 %ZHECON_3)
                      ("ZHECON_ROOK" "zhecon_rook_" %%ZHECON_ROOK %ZHECON_ROOK)
                      ("ZHEEQUB" "zheequb_" %%ZHEEQUB %ZHEEQUB)
                      ("ZHEEV" "zheev_" %%ZHEEV %ZHEEV)
                      ("ZHEEV_2STAGE" "zheev_2stage_" %%ZHEEV_2STAGE
                       %ZHEEV_2STAGE)
                      ("ZHEEVD" "zheevd_" %%ZHEEVD %ZHEEVD)
                      ("ZHEEVD_2STAGE" "zheevd_2stage_" %%ZHEEVD_2STAGE
                       %ZHEEVD_2STAGE)
                      ("ZHEEVR" "zheevr_" %%ZHEEVR %ZHEEVR)
                      ("ZHEEVR_2STAGE" "zheevr_2stage_" %%ZHEEVR_2STAGE
                       %ZHEEVR_2STAGE)
                      ("ZHEEVX" "zheevx_" %%ZHEEVX %ZHEEVX)
                      ("ZHEEVX_2STAGE" "zheevx_2stage_" %%ZHEEVX_2STAGE
                       %ZHEEVX_2STAGE)
                      ("ZHEGS2" "zhegs2_" %%ZHEGS2 %ZHEGS2)
                      ("ZHEGST" "zhegst_" %%ZHEGST %ZHEGST)
                      ("ZHEGV" "zhegv_" %%ZHEGV %ZHEGV)
                      ("ZHEGV_2STAGE" "zhegv_2stage_" %%ZHEGV_2STAGE
                       %ZHEGV_2STAGE)
                      ("ZHEGVD" "zhegvd_" %%ZHEGVD %ZHEGVD)
                      ("ZHEGVX" "zhegvx_" %%ZHEGVX %ZHEGVX)
                      ("ZHERFS" "zherfs_" %%ZHERFS %ZHERFS)
                      ("ZHERFSX" "zherfsx_" %%ZHERFSX %ZHERFSX)
                      ("ZHESV" "zhesv_" %%ZHESV %ZHESV)
                      ("ZHESV_AA" "zhesv_aa_" %%ZHESV_AA %ZHESV_AA)
                      ("ZHESV_AA_2STAGE" "zhesv_aa_2stage_" %%ZHESV_AA_2STAGE
                       %ZHESV_AA_2STAGE)
                      ("ZHESV_RK" "zhesv_rk_" %%ZHESV_RK %ZHESV_RK)
                      ("ZHESV_ROOK" "zhesv_rook_" %%ZHESV_ROOK %ZHESV_ROOK)
                      ("ZHESVX" "zhesvx_" %%ZHESVX %ZHESVX)
                      ("ZHESVXX" "zhesvxx_" %%ZHESVXX %ZHESVXX)
                      ("ZHESWAPR" "zheswapr_" %%ZHESWAPR %ZHESWAPR)
                      ("ZHETD2" "zhetd2_" %%ZHETD2 %ZHETD2)
                      ("ZHETF2" "zhetf2_" %%ZHETF2 %ZHETF2)
                      ("ZHETF2_RK" "zhetf2_rk_" %%ZHETF2_RK %ZHETF2_RK)
                      ("ZHETF2_ROOK" "zhetf2_rook_" %%ZHETF2_ROOK %ZHETF2_ROOK)
                      ("ZHETRD" "zhetrd_" %%ZHETRD %ZHETRD)
                      ("ZHETRD_2STAGE" "zhetrd_2stage_" %%ZHETRD_2STAGE
                       %ZHETRD_2STAGE)
                      ("ZHETRD_HE2HB" "zhetrd_he2hb_" %%ZHETRD_HE2HB
                       %ZHETRD_HE2HB)
                      ("ZHETRF" "zhetrf_" %%ZHETRF %ZHETRF)
                      ("ZHETRF_AA" "zhetrf_aa_" %%ZHETRF_AA %ZHETRF_AA)
                      ("ZHETRF_AA_2STAGE" "zhetrf_aa_2stage_"
                       %%ZHETRF_AA_2STAGE %ZHETRF_AA_2STAGE)
                      ("ZHETRF_RK" "zhetrf_rk_" %%ZHETRF_RK %ZHETRF_RK)
                      ("ZHETRF_ROOK" "zhetrf_rook_" %%ZHETRF_ROOK %ZHETRF_ROOK)
                      ("ZHETRI" "zhetri_" %%ZHETRI %ZHETRI)
                      ("ZHETRI2" "zhetri2_" %%ZHETRI2 %ZHETRI2)
                      ("ZHETRI2X" "zhetri2x_" %%ZHETRI2X %ZHETRI2X)
                      ("ZHETRI_3" "zhetri_3_" %%ZHETRI_3 %ZHETRI_3)
                      ("ZHETRI_3X" "zhetri_3x_" %%ZHETRI_3X %ZHETRI_3X)
                      ("ZHETRI_ROOK" "zhetri_rook_" %%ZHETRI_ROOK %ZHETRI_ROOK)
                      ("ZHETRS" "zhetrs_" %%ZHETRS %ZHETRS)
                      ("ZHETRS2" "zhetrs2_" %%ZHETRS2 %ZHETRS2)
                      ("ZHETRS_3" "zhetrs_3_" %%ZHETRS_3 %ZHETRS_3)
                      ("ZHETRS_AA" "zhetrs_aa_" %%ZHETRS_AA %ZHETRS_AA)
                      ("ZHETRS_AA_2STAGE" "zhetrs_aa_2stage_"
                       %%ZHETRS_AA_2STAGE %ZHETRS_AA_2STAGE)
                      ("ZHETRS_ROOK" "zhetrs_rook_" %%ZHETRS_ROOK %ZHETRS_ROOK)
                      ("ZHFRK" "zhfrk_" %%ZHFRK %ZHFRK)
                      ("ZHGEQZ" "zhgeqz_" %%ZHGEQZ %ZHGEQZ)
                      ("ZHPCON" "zhpcon_" %%ZHPCON %ZHPCON)
                      ("ZHPEV" "zhpev_" %%ZHPEV %ZHPEV)
                      ("ZHPEVD" "zhpevd_" %%ZHPEVD %ZHPEVD)
                      ("ZHPEVX" "zhpevx_" %%ZHPEVX %ZHPEVX)
                      ("ZHPGST" "zhpgst_" %%ZHPGST %ZHPGST)
                      ("ZHPGV" "zhpgv_" %%ZHPGV %ZHPGV)
                      ("ZHPGVD" "zhpgvd_" %%ZHPGVD %ZHPGVD)
                      ("ZHPGVX" "zhpgvx_" %%ZHPGVX %ZHPGVX)
                      ("ZHPRFS" "zhprfs_" %%ZHPRFS %ZHPRFS)
                      ("ZHPSV" "zhpsv_" %%ZHPSV %ZHPSV)
                      ("ZHPSVX" "zhpsvx_" %%ZHPSVX %ZHPSVX)
                      ("ZHPTRD" "zhptrd_" %%ZHPTRD %ZHPTRD)
                      ("ZHPTRF" "zhptrf_" %%ZHPTRF %ZHPTRF)
                      ("ZHPTRI" "zhptri_" %%ZHPTRI %ZHPTRI)
                      ("ZHPTRS" "zhptrs_" %%ZHPTRS %ZHPTRS)
                      ("ZHSEIN" "zhsein_" %%ZHSEIN %ZHSEIN)
                      ("ZHSEQR" "zhseqr_" %%ZHSEQR %ZHSEQR)
                      ("ZLA_GBAMV" "zla_gbamv_" %%ZLA_GBAMV %ZLA_GBAMV)
                      ("ZLA_GBRCOND_C" "zla_gbrcond_c_" %%ZLA_GBRCOND_C
                       %ZLA_GBRCOND_C)
                      ("ZLA_GBRCOND_X" "zla_gbrcond_x_" %%ZLA_GBRCOND_X
                       %ZLA_GBRCOND_X)
                      ("ZLA_GBRFSX_EXTENDED" "zla_gbrfsx_extended_"
                       %%ZLA_GBRFSX_EXTENDED %ZLA_GBRFSX_EXTENDED)
                      ("ZLA_GBRPVGRW" "zla_gbrpvgrw_" %%ZLA_GBRPVGRW
                       %ZLA_GBRPVGRW)
                      ("ZLA_GEAMV" "zla_geamv_" %%ZLA_GEAMV %ZLA_GEAMV)
                      ("ZLA_GERCOND_C" "zla_gercond_c_" %%ZLA_GERCOND_C
                       %ZLA_GERCOND_C)
                      ("ZLA_GERCOND_X" "zla_gercond_x_" %%ZLA_GERCOND_X
                       %ZLA_GERCOND_X)
                      ("ZLA_GERFSX_EXTENDED" "zla_gerfsx_extended_"
                       %%ZLA_GERFSX_EXTENDED %ZLA_GERFSX_EXTENDED)
                      ("ZLA_GERPVGRW" "zla_gerpvgrw_" %%ZLA_GERPVGRW
                       %ZLA_GERPVGRW)
                      ("ZLA_HEAMV" "zla_heamv_" %%ZLA_HEAMV %ZLA_HEAMV)
                      ("ZLA_HERCOND_C" "zla_hercond_c_" %%ZLA_HERCOND_C
                       %ZLA_HERCOND_C)
                      ("ZLA_HERCOND_X" "zla_hercond_x_" %%ZLA_HERCOND_X
                       %ZLA_HERCOND_X)
                      ("ZLA_HERFSX_EXTENDED" "zla_herfsx_extended_"
                       %%ZLA_HERFSX_EXTENDED %ZLA_HERFSX_EXTENDED)
                      ("ZLA_HERPVGRW" "zla_herpvgrw_" %%ZLA_HERPVGRW
                       %ZLA_HERPVGRW)
                      ("ZLA_LIN_BERR" "zla_lin_berr_" %%ZLA_LIN_BERR
                       %ZLA_LIN_BERR)
                      ("ZLA_PORCOND_C" "zla_porcond_c_" %%ZLA_PORCOND_C
                       %ZLA_PORCOND_C)
                      ("ZLA_PORCOND_X" "zla_porcond_x_" %%ZLA_PORCOND_X
                       %ZLA_PORCOND_X)
                      ("ZLA_PORFSX_EXTENDED" "zla_porfsx_extended_"
                       %%ZLA_PORFSX_EXTENDED %ZLA_PORFSX_EXTENDED)
                      ("ZLA_PORPVGRW" "zla_porpvgrw_" %%ZLA_PORPVGRW
                       %ZLA_PORPVGRW)
                      ("ZLA_SYAMV" "zla_syamv_" %%ZLA_SYAMV %ZLA_SYAMV)
                      ("ZLA_SYRCOND_C" "zla_syrcond_c_" %%ZLA_SYRCOND_C
                       %ZLA_SYRCOND_C)
                      ("ZLA_SYRCOND_X" "zla_syrcond_x_" %%ZLA_SYRCOND_X
                       %ZLA_SYRCOND_X)
                      ("ZLA_SYRFSX_EXTENDED" "zla_syrfsx_extended_"
                       %%ZLA_SYRFSX_EXTENDED %ZLA_SYRFSX_EXTENDED)
                      ("ZLA_SYRPVGRW" "zla_syrpvgrw_" %%ZLA_SYRPVGRW
                       %ZLA_SYRPVGRW)
                      ("ZLA_WWADDW" "zla_wwaddw_" %%ZLA_WWADDW %ZLA_WWADDW)
                      ("ZLABRD" "zlabrd_" %%ZLABRD %ZLABRD)
                      ("ZLACGV" "zlacgv_" %%ZLACGV %ZLACGV)
                      ("ZLACN2" "zlacn2_" %%ZLACN2 %ZLACN2)
                      ("ZLACON" "zlacon_" %%ZLACON %ZLACON)
                      ("ZLACP2" "zlacp2_" %%ZLACP2 %ZLACP2)
                      ("ZLACPY" "zlacpy_" %%ZLACPY %ZLACPY)
                      ("ZLACRM" "zlacrm_" %%ZLACRM %ZLACRM)
                      ("ZLACRT" "zlacrt_" %%ZLACRT %ZLACRT)
                      ("ZLADIV" "zladiv_" %%ZLADIV %ZLADIV)
                      ("ZLAED0" "zlaed0_" %%ZLAED0 %ZLAED0)
                      ("ZLAED7" "zlaed7_" %%ZLAED7 %ZLAED7)
                      ("ZLAED8" "zlaed8_" %%ZLAED8 %ZLAED8)
                      ("ZLAEIN" "zlaein_" %%ZLAEIN %ZLAEIN)
                      ("ZLAESY" "zlaesy_" %%ZLAESY %ZLAESY)
                      ("ZLAEV2" "zlaev2_" %%ZLAEV2 %ZLAEV2)
                      ("ZLAG2C" "zlag2c_" %%ZLAG2C %ZLAG2C)
                      ("ZLAGS2" "zlags2_" %%ZLAGS2 %ZLAGS2)
                      ("ZLAGTM" "zlagtm_" %%ZLAGTM %ZLAGTM)
                      ("ZLAHEF" "zlahef_" %%ZLAHEF %ZLAHEF)
                      ("ZLAHEF_AA" "zlahef_aa_" %%ZLAHEF_AA %ZLAHEF_AA)
                      ("ZLAHEF_RK" "zlahef_rk_" %%ZLAHEF_RK %ZLAHEF_RK)
                      ("ZLAHEF_ROOK" "zlahef_rook_" %%ZLAHEF_ROOK %ZLAHEF_ROOK)
                      ("ZLAHQR" "zlahqr_" %%ZLAHQR %ZLAHQR)
                      ("ZLAHR2" "zlahr2_" %%ZLAHR2 %ZLAHR2)
                      ("ZLAIC1" "zlaic1_" %%ZLAIC1 %ZLAIC1)
                      ("ZLALS0" "zlals0_" %%ZLALS0 %ZLALS0)
                      ("ZLALSA" "zlalsa_" %%ZLALSA %ZLALSA)
                      ("ZLALSD" "zlalsd_" %%ZLALSD %ZLALSD)
                      ("ZLAMSWLQ" "zlamswlq_" %%ZLAMSWLQ %ZLAMSWLQ)
                      ("ZLAMTSQR" "zlamtsqr_" %%ZLAMTSQR %ZLAMTSQR)
                      ("ZLANGB" "zlangb_" %%ZLANGB %ZLANGB)
                      ("ZLANGE" "zlange_" %%ZLANGE %ZLANGE)
                      ("ZLANGT" "zlangt_" %%ZLANGT %ZLANGT)
                      ("ZLANHB" "zlanhb_" %%ZLANHB %ZLANHB)
                      ("ZLANHE" "zlanhe_" %%ZLANHE %ZLANHE)))

(COMMON-LISP:EXPORT
 '(%XERBLA %XERBLA_ARRAY %ZBBCSD %ZBDSQR %ZCGESV %ZCPOSV %ZDRSCL %ZGBBRD
           %ZGBCON %ZGBEQU %ZGBEQUB %ZGBRFS %ZGBRFSX %ZGBSV %ZGBSVX %ZGBSVXX
           %ZGBTF2 %ZGBTRF %ZGBTRS %ZGEBAK %ZGEBAL %ZGEBD2 %ZGEBRD %ZGECON
           %ZGEEQU %ZGEEQUB %ZGEES %ZGEESX %ZGEEV %ZGEEVX %ZGEHD2 %ZGEHRD
           %ZGEJSV %ZGELQ %ZGELQ2 %ZGELQF %ZGELQT %ZGELQT3 %ZGELS %ZGELSD
           %ZGELSS %ZGELSY %ZGEMLQ %ZGEMLQT %ZGEMQR %ZGEMQRT %ZGEQL2 %ZGEQLF
           %ZGEQP3 %ZGEQR %ZGEQR2 %ZGEQR2P %ZGEQRF %ZGEQRFP %ZGEQRT %ZGEQRT2
           %ZGEQRT3 %ZGERFS %ZGERFSX %ZGERQ2 %ZGERQF %ZGESC2 %ZGESDD %ZGESV
           %ZGESVD %ZGESVDQ %ZGESVDX %ZGESVJ %ZGESVX %ZGESVXX %ZGETC2 %ZGETF2
           %ZGETRF %ZGETRF2 %ZGETRI %ZGETRS %ZGETSLS %ZGGBAK %ZGGBAL %ZGGES
           %ZGGES3 %ZGGESX %ZGGEV %ZGGEV3 %ZGGEVX %ZGGGLM %ZGGHD3 %ZGGHRD
           %ZGGLSE %ZGGQRF %ZGGRQF %ZGGSVD3 %ZGGSVP3 %ZGSVJ0 %ZGSVJ1 %ZGTCON
           %ZGTRFS %ZGTSV %ZGTSVX %ZGTTRF %ZGTTRS %ZGTTS2 %ZHB2ST_KERNELS
           %ZHBEV %ZHBEV_2STAGE %ZHBEVD %ZHBEVD_2STAGE %ZHBEVX %ZHBEVX_2STAGE
           %ZHBGST %ZHBGV %ZHBGVD %ZHBGVX %ZHBTRD %ZHECON %ZHECON_3
           %ZHECON_ROOK %ZHEEQUB %ZHEEV %ZHEEV_2STAGE %ZHEEVD %ZHEEVD_2STAGE
           %ZHEEVR %ZHEEVR_2STAGE %ZHEEVX %ZHEEVX_2STAGE %ZHEGS2 %ZHEGST %ZHEGV
           %ZHEGV_2STAGE %ZHEGVD %ZHEGVX %ZHERFS %ZHERFSX %ZHESV %ZHESV_AA
           %ZHESV_AA_2STAGE %ZHESV_RK %ZHESV_ROOK %ZHESVX %ZHESVXX %ZHESWAPR
           %ZHETD2 %ZHETF2 %ZHETF2_RK %ZHETF2_ROOK %ZHETRD %ZHETRD_2STAGE
           %ZHETRD_HE2HB %ZHETRF %ZHETRF_AA %ZHETRF_AA_2STAGE %ZHETRF_RK
           %ZHETRF_ROOK %ZHETRI %ZHETRI2 %ZHETRI2X %ZHETRI_3 %ZHETRI_3X
           %ZHETRI_ROOK %ZHETRS %ZHETRS2 %ZHETRS_3 %ZHETRS_AA %ZHETRS_AA_2STAGE
           %ZHETRS_ROOK %ZHFRK %ZHGEQZ %ZHPCON %ZHPEV %ZHPEVD %ZHPEVX %ZHPGST
           %ZHPGV %ZHPGVD %ZHPGVX %ZHPRFS %ZHPSV %ZHPSVX %ZHPTRD %ZHPTRF
           %ZHPTRI %ZHPTRS %ZHSEIN %ZHSEQR %ZLA_GBAMV %ZLA_GBRCOND_C
           %ZLA_GBRCOND_X %ZLA_GBRFSX_EXTENDED %ZLA_GBRPVGRW %ZLA_GEAMV
           %ZLA_GERCOND_C %ZLA_GERCOND_X %ZLA_GERFSX_EXTENDED %ZLA_GERPVGRW
           %ZLA_HEAMV %ZLA_HERCOND_C %ZLA_HERCOND_X %ZLA_HERFSX_EXTENDED
           %ZLA_HERPVGRW %ZLA_LIN_BERR %ZLA_PORCOND_C %ZLA_PORCOND_X
           %ZLA_PORFSX_EXTENDED %ZLA_PORPVGRW %ZLA_SYAMV %ZLA_SYRCOND_C
           %ZLA_SYRCOND_X %ZLA_SYRFSX_EXTENDED %ZLA_SYRPVGRW %ZLA_WWADDW
           %ZLABRD %ZLACGV %ZLACN2 %ZLACON %ZLACP2 %ZLACPY %ZLACRM %ZLACRT
           %ZLADIV %ZLAED0 %ZLAED7 %ZLAED8 %ZLAEIN %ZLAESY %ZLAEV2 %ZLAG2C
           %ZLAGS2 %ZLAGTM %ZLAHEF %ZLAHEF_AA %ZLAHEF_RK %ZLAHEF_ROOK %ZLAHQR
           %ZLAHR2 %ZLAIC1 %ZLALS0 %ZLALSA %ZLALSD %ZLAMSWLQ %ZLAMTSQR %ZLANGB
           %ZLANGE %ZLANGT %ZLANHB %ZLANHE)
 '#:MAGICL.LAPACK-CFFI)

;;; End of file.
